Add $^E and $^O

[p5sagit/p5-mst-13.2.git] / lib / find.pl

diff --git a/lib/find.pl b/lib/find.pl
index d55cd33..40e613e 100644 (file)
--- 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";