This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
amigaos4: use constant string friendly macros
authorYves Orton <demerphq@gmail.com>
Wed, 19 Oct 2016 08:56:44 +0000 (10:56 +0200)
committerYves Orton <demerphq@gmail.com>
Wed, 19 Oct 2016 11:28:00 +0000 (13:28 +0200)
amigaos4/amigaio.c

index 205e3d5..b50dd9b 100644 (file)
@@ -668,7 +668,7 @@ static I32 S_do_amigaos_exec3(pTHX_ const char *incmd, int fd, int do_report)
        if (*cmd == '.' && isSPACE(cmd[1]))
                goto doshell;
 
-       if (strnEQ(cmd, "exec", 4) && isSPACE(cmd[4]))
+       if (strEQs(cmd, "exec") && isSPACE(cmd[4]))
                goto doshell;
 
        s = cmd;