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 /doio.c | |
| 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 'doio.c')
| -rw-r--r-- | doio.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2003,7 +2003,7 @@ Perl_do_exec3(pTHX_ const char *incmd, int fd, int do_report) { char flags[PERL_FLAGS_MAX]; if (strnEQ(cmd,PL_cshname,PL_cshlen) && - strEQs(cmd+PL_cshlen," -c")) { + strBEGINs(cmd+PL_cshlen," -c")) { my_strlcpy(flags, "-c", PERL_FLAGS_MAX); s = cmd+PL_cshlen+3; if (*s == 'f') { @@ -2039,7 +2039,7 @@ Perl_do_exec3(pTHX_ const char *incmd, int fd, int do_report) if (*cmd == '.' && isSPACE(cmd[1])) goto doshell; - if (strEQs(cmd,"exec") && isSPACE(cmd[4])) + if (strBEGINs(cmd,"exec") && isSPACE(cmd[4])) goto doshell; s = cmd; |