Change 33461 by [EMAIL PROTECTED] on 2008/03/10 14:40:32
#else missing, spotted by Alexey Tourbin.
Affected files ...
... //depot/maint-5.8/perl/embed.fnc#246 edit
... //depot/maint-5.8/perl/embed.h#187 edit
... //depot/maint-5.8/perl/proto.h#236 edit
Differences ...
==== //depot/maint-5.8/perl/embed.fnc#246 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#245~33454~ 2008-03-08 15:09:00.000000000 -0800
+++ perl/embed.fnc 2008-03-10 07:40:32.000000000 -0700
@@ -1174,6 +1174,7 @@
so |void |validate_suid |NN const char *validarg \
|int fdscript \
|bool suidscript|NN SV* linestr_sv
+#else
so |void |validate_suid |NN const char *validarg \
|NN const char *scriptname|int fdscript \
|NN SV* linestr_sv
==== //depot/maint-5.8/perl/embed.h#187 (text+w) ====
Index: perl/embed.h
--- perl/embed.h#186~33454~ 2008-03-08 15:09:00.000000000 -0800
+++ perl/embed.h 2008-03-10 07:40:32.000000000 -0700
@@ -1176,6 +1176,7 @@
#endif
#ifdef DOSUID
# ifdef IAMSUID
+#else
# endif
#else
# ifndef SETUID_SCRIPTS_ARE_SECURE_NOW
@@ -3308,6 +3309,9 @@
# ifdef IAMSUID
#ifdef PERL_CORE
#endif
+#else
+#ifdef PERL_CORE
+#endif
# endif
#else
# ifndef SETUID_SCRIPTS_ARE_SECURE_NOW
==== //depot/maint-5.8/perl/proto.h#236 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#235~33459~ 2008-03-10 06:10:44.000000000 -0700
+++ perl/proto.h 2008-03-10 07:40:32.000000000 -0700
@@ -1692,6 +1692,7 @@
#ifdef DOSUID
# ifdef IAMSUID
STATIC void S_validate_suid(pTHX_ const char *validarg, int fdscript, bool
suidscript, SV* linestr_sv);
+#else
STATIC void S_validate_suid(pTHX_ const char *validarg, const char
*scriptname, int fdscript, SV* linestr_sv);
# endif
#else
End of Patch.
