Fix my refactoring typo in change 33001 that broke suidperl, only spotted 11

months later, after 5.8.9 was released.

diff --git a/perl.c b/perl.c
index c6c856d..d02514c 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -3665,7 +3665,7 @@ S_open_script(pTHX_ const char *scriptname, bool dosearch,
  * perl with that fd as it has always done.
  */
     }
-    if (*suidscript) {
+    if (!*suidscript) {
        Perl_croak(aTHX_ "suidperl needs (suid) fd script\n");
     }
 #else /* IAMSUID */