Permalink
Browse files

[IO-Socket-INET.t] remove developer scaffolding

git-svn-id: http://svn.pugscode.org/pugs@26672 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
mberends
mberends committed May 4, 2009
1 parent ba86db9 commit 04afe09ad0b11a20bd63a8e95e85f4e73220fc72
Showing with 1 addition and 4 deletions.
  1. +1 −4 S32-io/IO-Socket-INET.t
View
@@ -21,12 +21,9 @@ given $*OS {
}
# TODO: when 'Win32' etc.
}
-#$received = slurp( '/home/martin/osx-netstat' );
$received = fake_qx( $netstat_cmd ); # refactor into 1 line after
if $received ~~ $netstat_pat { @ports = $/[]; } # development complete
-warn @ports.elems ~ " PORTS=" ~ @ports;
-
-exit(1);
+#warn @ports.elems ~ " PORTS=" ~ @ports;
# sequentially search for the first unused port
my $port = 1024;

0 comments on commit 04afe09

Please sign in to comment.