| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768 |
- --- 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 <UU/$file.c |
- $sed \
- -e '/^#.*<stdin>/d' \
- + -e '/^#.*<built-in>/d' \
- + -e '/^#.*<command line>/d' \
- -e '/^#.*"-"/d' \
- -e 's#\.[0-9][0-9]*\.c#'"$file.c#" \
- -e 's/^[ ]*#[ ]*line/#/' \
- @@ -155,6 +157,8 @@
- $sed \
- -e '1d' \
- -e '/^#.*<stdin>/d' \
- + -e '/^#.*<built-in>/d' \
- + -e '/^#.*<command line>/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 <<EOF
- --- hints/freebsd.sh.orig 2002-08-26 16:57:58.000000000 +0200
- +++ hints/freebsd.sh 2002-08-26 16:58:44.000000000 +0200
- @@ -104,9 +104,10 @@
- *)
- objformat=`/usr/bin/objformat`
- if [ x$objformat = xelf ]; then
- - libpth="/usr/lib /usr/local/lib"
- - glibpth="/usr/lib /usr/local/lib"
- - ldflags="-Wl,-E "
- + libpth=${libpth:-/usr/lib /usr/local/lib}
- + glibpth=${glibpth:-/usr/lib /usr/local/lib}
- + ldflags=`echo $ldflags | sed -e "s;.*\(-L[ ]*[^ ][^ ]*\).*;\1;"`
- + ldflags="-Wl,-E $ldflags"
- lddlflags="-shared "
- else
- if [ -e /usr/lib/aout ]; then
|
