From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 12 Jan 2009 22:20:34 +0000 (+0000)
Subject: Fix my refactoring typo in change 33001 that broke suidperl, only spotted 11
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=37d5d4df4e6b072f8a735fc9a422697ec56fe13d;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 */