head 1.2; access; symbols OPENPKG_E1_MP_HEAD:1.2 OPENPKG_E1_MP:1.2; locks; strict; comment @# @; 1.2 date 2003.07.22.13.41.40; author rse; state dead; branches; next 1.1; 1.1 date 2003.01.23.15.14.39; author rse; state Exp; branches; next ; desc @@ 1.2 log @make sure patch file uses exactly the package name as prefix @ text @--- ext/Opcode/Safe.pm.orig +++ ext/Opcode/Safe.pm @@@@ -213,7 +213,7 @@@@ # Create anon sub ref in root of compartment. # Uses a closure (on $expr) to pass in the code to be executed. # (eval on one line to keep line numbers as expected by caller) - my $evalcode = sprintf('package %s; sub { eval $expr; }', $root); + my $evalcode = sprintf('package %s; sub { @@_ = (); eval $expr; }', $root); my $evalsub; if ($strict) { use strict; $evalsub = eval $evalcode; } @@@@ -227,7 +227,7 @@@@ my $root = $obj->{Root}; my $evalsub = eval - sprintf('package %s; sub { do $file }', $root); + sprintf('package %s; sub { @@_ = (); do $file }', $root); return Opcode::_safe_call_sv($root, $obj->{Mask}, $evalsub); } --- makedepend.SH.orig Mon Mar 19 08:33:17 2001 +++ makedepend.SH Sun May 19 15:17:49 2002 @@@@ -141,6 +141,8 @@@@ $cppstdin $finc -I. $cppflags $cppminus /d' \ + -e '/^#.*/d' \ + -e '/^#.*/d' \ -e '/^#.*"-"/d' \ -e 's#\.[0-9][0-9]*\.c#'"$file.c#" \ -e 's/^[ ]*#[ ]*line/#/' \ @@@@ -155,6 +157,8 @@@@ $sed \ -e '1d' \ -e '/^#.*/d' \ + -e '/^#.*/d' \ + -e '/^#.*/d' \ -e '/^#.*"-"/d' \ -e 's#\.[0-9][0-9]*\.c#'"$file.c#" \ -e 's/^[ ]*#[ ]*line/#/' \ --- hints/dec_osf.sh.orig Fri Feb 23 03:57:55 2001 +++ hints/dec_osf.sh Wed Jun 5 16:34:54 2002 @@@@ -65,7 +65,7 @@@@ # reset _DEC_cc_style= case "`$cc -v 2>&1 | grep cc`" in -*gcc*) _gcc_version=`$cc --version 2>&1 | tr . ' '` +*gcc*) _gcc_version=`$cc --version 2>&1 | head -1 | sed -e 's;^gcc (GCC) ;;' -e 's;^cc (GCC) ;;' | tr . ' '` set $_gcc_version if test "$1" -lt 2 -o \( "$1" -eq 2 -a \( "$2" -lt 95 -o \( "$2" -eq 95 -a "$3" -lt 2 \) \) \); then cat >&4 <