[Bps-public-commit] r17868 - Net-Trac/trunk/t

[jesse at bestpractical.com]

Author: jesse
Date: Wed Jan 21 15:00:53 2009
New Revision: 17868

Modified:
   Net-Trac/trunk/t/setup_trac.pl

Log:
* Cleanup temp dirs

Modified: Net-Trac/trunk/t/setup_trac.pl
==============================================================================
--- Net-Trac/trunk/t/setup_trac.pl	(original)
+++ Net-Trac/trunk/t/setup_trac.pl	Wed Jan 21 15:00:53 2009
@@ -9,7 +9,7 @@
 use LWP::Simple qw/get/;
 use Time::HiRes qw/usleep/;
 
-
+#my $x = __PACKAGE__->new(); $x->start_test_server(); warn $x->url; sleep 999;
 sub new {
     my $class = shift;
     my $self = {};
@@ -21,10 +21,9 @@
 my $self = shift;
 
 $self->port( int(60000 + rand(2000)));
-$self->dir(tempdir( CLEANUP => 0));
+$self->dir(tempdir( CLEANUP => 1));
 $self->init;
 $self->daemonize;
-
 return $self->_did_server_start;
 }