Index: /trunk/Nebulous/scripts/ptest.pl
===================================================================
--- /trunk/Nebulous/scripts/ptest.pl	(revision 23376)
+++ /trunk/Nebulous/scripts/ptest.pl	(revision 23377)
@@ -53,9 +53,9 @@
 
 while ($kids) {
-    foreach my $child ($s->can_read(0)) {
-        my $string = do { local $/; <$child>};
-        my @events = split(/\n/, $string) if $string;
-        print join("\n", @events), "\n" if scalar @events;
-    }
+#    foreach my $child ($s->can_read(0)) {
+#        my $string = do { local $/; <$child>};
+#        my @events = split(/\n/, $string) if $string;
+#        print join("\n", @events), "\n" if scalar @events;
+#    }
 }
 
@@ -64,11 +64,11 @@
     my ($sock, $id) = @_;
 
-#    unless ($print_stdout) {
-#        my $filename = hostname() . "." . $$ . ".txt";
-#        open my $fh, ">$filename" or die "can't open $filename: $!";
-#
-#        open STDOUT, ">&", $fh or die "can't reopen STDOUT: $!";
-#        autoflush STDOUT 1;
-#    }
+    unless ($print_stdout) {
+        my $filename = hostname() . "." . $$ . ".txt";
+        open my $fh, ">$filename" or die "can't open $filename: $!";
+
+        open STDOUT, ">&", $fh or die "can't reopen STDOUT: $!";
+        autoflush STDOUT 1;
+    }
 
 #    select $sock;
@@ -81,5 +81,5 @@
 #    proxy   => 'http://localhost:80/nebulous'
         proxy   => 'http://alala:80/nebulous',
-        sock    => $sock,
+#        sock    => \*STDOUT,
     );
 
@@ -123,15 +123,15 @@
 use base qw( Nebulous::Client );
 
-sub new
-{
-    my $class = shift;
-    my %p = @_;
-
-    my $sock = delete $p{sock};
-    my $self = $class->SUPER::new(%p);
-    $self->{sock} = $sock;
-
-    return $self;
-}
+#sub new
+#{
+#    my $class = shift;
+#    my %p = @_;
+#
+#    my $sock = delete $p{sock};
+#    my $self = $class->SUPER::new(%p);
+#    $self->{sock} = $sock;
+#
+#    return $self;
+#}
 
 BEGIN {