From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Wed, 20 Mar 1996 01:48:49 +0000 (+0000)
Subject: Change calling sequence for VMS-specific routine
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=271c29639254e6265b801536ac93f7ab8998e9c6;p=p5sagit%2Fp5-mst-13.2.git

Change calling sequence for VMS-specific routine
---

diff --git a/pp_hot.c b/pp_hot.c
index 63362c4..8fe39f3 100644
--- 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 {