Change calling sequence for VMS-specific routine
Perl 5 Porters [Wed, 20 Mar 1996 01:48:49 +0000 (01:48 +0000)]
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 {