diff options
| author | Karl Williamson <khw@cpan.org> | 2017-03-08 20:31:25 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2017-11-06 12:50:05 -0700 |
| commit | c8b388b0c776dab4a28db03739aff4d64daccada (patch) | |
| tree | 3bf17c3a7a4b2b7f260199423ce0baf55dc9e809 /os2 | |
| parent | 98d1c64ef90693f86df84c4ce96718ed136e933c (diff) | |
| download | perl-c8b388b0c776dab4a28db03739aff4d64daccada.tar.gz | |
Rename strEQs to strBEGINs; remove strNEs
The original names are confusing.
See thread beginning with
http://nntp.perl.org/group/perl.perl5.porters/244335
The two macros are mapped into just that one, complementing the result
for the few cases where strNEs was used.
Diffstat (limited to 'os2')
| -rw-r--r-- | os2/os2.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -1171,11 +1171,11 @@ do_spawn_ve(pTHX_ SV *really, U32 flag, U32 execf, char *inicmd, U32 addflag) if (buf[1] == '!') s = buf + 2; } else if (buf[0] == 'e') { - if (strEQs(buf, "extproc") + if (strBEGINs(buf, "extproc") && isSPACE(buf[7])) s = buf + 8; } else if (buf[0] == 'E') { - if (strEQs(buf, "EXTPROC") + if (strBEGINs(buf, "EXTPROC") && isSPACE(buf[7])) s = buf + 8; } @@ -1372,7 +1372,7 @@ do_spawn3(pTHX_ char *cmd, int execf, int flag) while (*cmd && isSPACE(*cmd)) cmd++; - if (strEQs(cmd,"/bin/sh") && isSPACE(cmd[7])) { + if (strBEGINs(cmd,"/bin/sh") && isSPACE(cmd[7])) { STRLEN l = strlen(PL_sh_path); Newx(news, strlen(cmd) - 7 + l + 1, char); @@ -1387,7 +1387,7 @@ do_spawn3(pTHX_ char *cmd, int execf, int flag) if (*cmd == '.' && isSPACE(cmd[1])) goto doshell; - if (strEQs(cmd,"exec") && isSPACE(cmd[4])) + if (strBEGINs(cmd,"exec") && isSPACE(cmd[4])) goto doshell; for (s = cmd; *s && isALPHA(*s); s++) ; /* catch VAR=val gizmo */ |