diff options
Diffstat (limited to 'lang/perl5.12/files/patch-perl.c')
| -rw-r--r-- | lang/perl5.12/files/patch-perl.c | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lang/perl5.12/files/patch-perl.c b/lang/perl5.12/files/patch-perl.c index e9cd514c8868..8e91bd68b9e6 100644 --- a/lang/perl5.12/files/patch-perl.c +++ b/lang/perl5.12/files/patch-perl.c @@ -1,5 +1,14 @@ --- perl.c +++ perl.c +@@ -3724,7 +3724,7 @@ + * perl with that fd as it has always done. + */ + } +- if (*suidscript) { ++ if (*suidscript != TRUE) { + Perl_croak(aTHX_ "suidperl needs (suid) fd script\n"); + } + #else /* IAMSUID */ @@ -4882,6 +4882,28 @@ incpush(APPLLIB_EXP, TRUE, TRUE, TRUE, TRUE); #endif |