diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-20 09:38:39 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-20 09:38:39 +0000 |
commit | 6b88bc9c1f6d4b32c70e7ef68f8c65266e431623 (patch) | |
tree | fe4f20be7c31cd96c8757067c3aefe35ea971694 /djgpp/djgpp.c | |
parent | 045c1f128ac729dc76c4da7e8ffe34bf12692b94 (diff) | |
download | perl-6b88bc9c1f6d4b32c70e7ef68f8c65266e431623.tar.gz |
complete s/foo/PL_foo/ changes (all escaped cases identified with
brute force search script). Result builds and passes all tests on
Solaris. win32 and PERL_OBJECT are still untested.
p4raw-id: //depot/perl@1578
Diffstat (limited to 'djgpp/djgpp.c')
-rw-r--r-- | djgpp/djgpp.c | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/djgpp/djgpp.c b/djgpp/djgpp.c index 466b4abc60..4d0d9fd0a1 100644 --- a/djgpp/djgpp.c +++ b/djgpp/djgpp.c @@ -119,7 +119,7 @@ pclose (FILE *pp) static int convretcode (int rc,char *prog,int fl) { - if (rc < 0 && dowarn) + if (rc < 0 && PL_dowarn) warn ("Can't %s \"%s\": %s",fl ? "exec" : "spawn",prog,Strerror (errno)); if (rc > 0) return rc <<= 8; @@ -141,7 +141,7 @@ do_aspawn (SV *really,SV **mark,SV **sp) while (++mark <= sp) if (*mark) - *a++ = SvPVx(*mark, na); + *a++ = SvPVx(*mark, PL_na); else *a++ = ""; *a = Nullch; @@ -152,7 +152,7 @@ do_aspawn (SV *really,SV **mark,SV **sp) ) /* will swawnvp use PATH? */ TAINT_ENV(); /* testing IFS here is overkill, probably */ - if (really && *(tmps = SvPV(really, na))) + if (really && *(tmps = SvPV(really, PL_na))) rc=spawnvp (P_WAIT,tmps,argv); else rc=spawnvp (P_WAIT,argv[0],argv); @@ -208,10 +208,10 @@ doshell: return convretcode (system (cmd),cmd,execf); } - New (1303,Argv,(s-cmd)/2+2,char*); - Cmd=savepvn (cmd,s-cmd); - a=Argv; - for (s=Cmd; *s;) { + New (1303,PL_Argv,(s-cmd)/2+2,char*); + PL_Cmd=savepvn (cmd,s-cmd); + a=PL_Argv; + for (s=PL_Cmd; *s;) { while (*s && isSPACE (*s)) s++; if (*s) *(a++)=s; @@ -220,14 +220,14 @@ doshell: *s++='\0'; } *a=Nullch; - if (!Argv[0]) + if (!PL_Argv[0]) return -1; if (execf==EXECF_EXEC) - rc=execvp (Argv[0],Argv); + rc=execvp (PL_Argv[0],PL_Argv); else - rc=spawnvp (P_WAIT,Argv[0],Argv); - return convretcode (rc,Argv[0],execf); + rc=spawnvp (P_WAIT,PL_Argv[0],PL_Argv); + return convretcode (rc,PL_Argv[0],execf); } int |