You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
67 lines
2.5 KiB
67 lines
2.5 KiB
--- 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
|
|
|