diff options
| author | Craig A. Berry <craigberry@mac.com> | 2005-07-24 10:31:55 -0500 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-07-24 20:52:13 +0000 |
| commit | c46ec1f410f930810c1c3e760696951bc26b1248 (patch) | |
| tree | 5cce01bf1f63ef23c441be69022e4c0088646840 /pp_sys.c | |
| parent | 7dc8f726ffdb362768c2563d86c4aba594ce406e (diff) | |
| download | perl-c46ec1f410f930810c1c3e760696951bc26b1248.tar.gz | |
blead help for VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <42E3FABB.1020900@mac.com>
Date: Sun, 24 Jul 2005 15:31:55 -0500
p4raw-id: //depot/perl@25217
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -3607,7 +3607,7 @@ PP(pp_chdir) #endif } else - PUSHi( PerlDir_chdir(tmps) >= 0 ); + PUSHi( PerlDir_chdir((char *)tmps) >= 0 ); #ifdef VMS /* Clear the DEFAULT element of ENV so we'll get the new value * in the future. */ @@ -3878,7 +3878,7 @@ PP(pp_mkdir) TAINT_PROPER("mkdir"); #ifdef HAS_MKDIR - SETi( PerlDir_mkdir(tmps, mode) >= 0 ); + SETi( PerlDir_mkdir((char *)tmps, mode) >= 0 ); #else SETi( dooneliner("mkdir", tmps) ); oldumask = PerlLIO_umask(0); @@ -3900,7 +3900,7 @@ PP(pp_rmdir) TRIMSLASHES(tmps,len,copy); TAINT_PROPER("rmdir"); #ifdef HAS_RMDIR - SETi( PerlDir_rmdir(tmps) >= 0 ); + SETi( PerlDir_rmdir((char *)tmps) >= 0 ); #else SETi( dooneliner("rmdir", tmps) ); #endif @@ -3924,7 +3924,7 @@ PP(pp_open_dir) if (IoDIRP(io)) PerlDir_close(IoDIRP(io)); - if (!(IoDIRP(io) = PerlDir_open(dirname))) + if (!(IoDIRP(io) = PerlDir_open((char *)dirname))) goto nope; RETPUSHYES; |