perl 5.003_01: lib/File/Basename.pm

[p5sagit/p5-mst-13.2.git] / pp_hot.c

diff --git a/pp_hot.c b/pp_hot.c
index 63362c4..8fe39f3 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1016,7 +1016,7 @@ do_readline()
                            *(end++) = '\n';  *end = '\0';
                            for (cp = rstr; *cp; cp++) *cp = _tolower(*cp);
                            if (hasdir) {
-                             if (isunix) trim_unixpath(SvPVX(tmpglob),rstr);
+                             if (isunix) trim_unixpath(rstr,SvPVX(tmpglob));
                              begin = rstr;
                            }
                            else {