1 --- Perlbal-1.59/lib/Perlbal/Test.pm~ 2007-04-16 23:15:54.000000000 +0300
2 +++ Perlbal-1.59/lib/Perlbal/Test.pm 2008-01-14 01:12:43.846450751 +0200
7 -our $free_port = 60000;
8 +our $free_port = $ENV{TEST_TCP_FREE_PORT} || 60000;
10 sub mgmt_port { return $mgmt_port; }