|
From: <sv...@va...> - 2006-11-03 19:35:22
|
Author: njn
Date: 2006-11-03 19:35:20 +0000 (Fri, 03 Nov 2006)
New Revision: 6343
Log:
Fix for nested subdirs
Modified:
trunk/perf/vg_perf.in
Modified: trunk/perf/vg_perf.in
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
--- trunk/perf/vg_perf.in 2006-11-03 19:30:33 UTC (rev 6342)
+++ trunk/perf/vg_perf.in 2006-11-03 19:35:20 UTC (rev 6343)
@@ -353,6 +353,8 @@
my ($dir, $prev_dirs) =3D @_;
$dir =3D~ s/\/$//; # trim a trailing '/'
=20
+ chomp(my $initial_dir =3D `pwd`); # record where we started
+
# Ignore dirs into which we should not recurse.
if ($dir =3D~ /^(BitKeeper|CVS|SCCS|docs|doc)$/) { return; }
=20
@@ -379,7 +381,7 @@
print "-- Finished tests in $full_dir $dashes\n";
}
=20
- chdir("..");
+ chdir("$initial_dir");
}
=20
#-----------------------------------------------------------------------=
-----
|