fix setuid execution that was broken by f20b29985d

(it would supriously die with "suidperl needs (suid) fd script" error)

1 files changed, 1 insertions, 1 deletions

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