stas 2004/02/18 22:41:36
Modified: perl-framework/Apache-Test/lib/Apache TestRun.pm
Log:
be safe
Revision Changes Path
1.151 +1 -2
httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm
Index: TestRun.pm
===================================================================
RCS file:
/home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm,v
retrieving revision 1.150
retrieving revision 1.151
diff -u -u -r1.150 -r1.151
--- TestRun.pm 19 Feb 2004 06:37:19 -0000 1.150
+++ TestRun.pm 19 Feb 2004 06:41:36 -0000 1.151
@@ -632,8 +632,7 @@
$0 = File::Spec->rel2abs($0);
if (-e $0) {
my $top = dirname dirname $0;
- chdir $top;
- error $top;
+ chdir $top if $top and -d $top;
}
# reconstruct argv, preserve multiwords args, eg 'PerlTrace all'
