diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-08-01 13:58:04 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-08-01 13:58:04 +0000 |
| commit | b8ffc8df1a4e893e9c7d77b64a6fae8af5801974 (patch) | |
| tree | 664b3279897c4f1ff6dafd1f0bcd75de34f68ed1 /pp_ctl.c | |
| parent | 4d0523d6c78866412e93a18e8d5034cac4b49d90 (diff) | |
| download | perl-b8ffc8df1a4e893e9c7d77b64a6fae8af5801974.tar.gz | |
Various patches by John E. Malmberg to fix data
corruption issues on VMS. Back out change 25218 and
the parts of change 25217 that affect pp_ctl.c and
pp_sys.c.
p4raw-id: //depot/perl@25257
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -3143,7 +3143,7 @@ PP(pp_require) I32 i; #ifdef VMS char *unixname; - if ((unixname = tounixspec((char *)name, Nullch)) != Nullch) + if ((unixname = tounixspec(name, Nullch)) != Nullch) #endif { namesv = NEWSV(806, 0); @@ -3280,7 +3280,7 @@ PP(pp_require) #else # ifdef VMS char *unixdir; - if ((unixdir = tounixpath((char *)dir, Nullch)) == Nullch) + if ((unixdir = tounixpath(dir, Nullch)) == Nullch) continue; sv_setpv(namesv, unixdir); sv_catpv(namesv, unixname); |