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

months later, after 5.8.9 was released.

1 files changed, 1 insertions, 1 deletions

diff --git a/perl.c b/perl.c
index c6c856d75a..d02514ca7a 100644
--- 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 */