X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Ffind.pl;h=40e613e97ee03d2cebe4fdf6a7942bf550fdb55e;hb=d57fa8b6af39ea3eaa99a66e02134fdf61adb746;hp=d55cd331222e9beeaee4b1c6809117ef68705847;hpb=8990e3071044a96302560bbdb5706f3e74cf1bef;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/find.pl b/lib/find.pl
index d55cd33..40e613e 100644
--- a/lib/find.pl
+++ b/lib/find.pl
@@ -39,8 +39,8 @@ sub find {
 		($dir,$_) = ($topdir,'.');
 		$name = $topdir;
 		&wanted;
-		$topdir =~ s,/$,, ;
-		&finddir($topdir,$topnlink);
+		($fixtopdir = $topdir) =~ s,/$,, ;
+		&finddir($fixtopdir,$topnlink);
 	    }
 	    else {
 		warn "Can't cd to $topdir: $!\n";