Changeset 23375

Timestamp:

Mar 17, 2009, 4:42:25 PM (17 years ago)

Author:

jhoblitt

Message:

argh!

File:

• trunk/Nebulous/scripts/ptest.pl (modified) (4 diffs)

trunk/Nebulous/scripts/ptest.pl

@@ -53 +53 @@
 
 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 +64 @@
     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 +81 @@
 #    proxy   => 'http://localhost:80/nebulous'
         proxy   => 'http://alala:80/nebulous',
-#        sock    => \*STDOUT,
+        sock    => $sock,
     );
 
@@ -123 +123 @@
 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 {