[ViewVC] Diff of: cvs/cvsroot/AnyEvent-Fork/Fork.pm

Comparing cvsroot/AnyEvent-Fork/Fork.pm (file contents):
Revision 1.1 by root, Sun Mar 31 03:21:27 2013 UTC vs.
Revision 1.2 by root, Sun Mar 31 03:26:50 2013 UTC

    my ($queue, $cmd) = @_;
    push @{ $queue->[2] }, pack "N/a", $cmd;
    $queue->[3] ||= AE::io $queue->[1], 1, sub {
-      warn "oopl0 ", scalar @{ $queue->[2] };
       if (ref $queue->[2][0]) {
-         warn "oopla2\n";#d#
          AnyEvent::ProcessPool::Util::fd_send fileno $queue->[1], fileno ${ $queue->[2][0] }
             and shift @{ $queue->[2] };
       } else {
-         warn "write ", length $queue->[2][0];#d#
          my $len = syswrite $queue->[1], $queue->[2][0]
-            or die "AnyEvent::ProcessPool::queue write failure: $!";
+            or do { undef $queue->[3]; die "AnyEvent::ProcessPool::queue write failure: $!" };
          substr $queue->[2][0], 0, $len, "";
          shift @{ $queue->[2] } unless length $queue->[2][0];
       }
       undef $queue->[3] unless @{ $queue->[2] };
-      warn "oopl3 ", scalar @{ $queue->[2] };
-      warn "oopl4 $queue->[3]\n";#d#
    };
 }
 sub run_template {
    return if $template;
    queue_cmd $template, "Iabc";
    push @{ $template->[2] }, \$b;
    use Coro::AnyEvent; Coro::AnyEvent::sleep 1;
+   undef $b;
+   die "x" . <$a>;
 }
 sub new {
    my $class = shift;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines