From 00dd722c5378e478eed4daa17120ab518ad2f0b8 Mon Sep 17 00:00:00 2001 From: "Todd C. Miller" Date: Mon, 29 Sep 2008 17:36:25 +0000 Subject: fix conflicts and merge in local changes to perl 5.10.0 --- gnu/usr.bin/perl/lib/sigtrap.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'gnu/usr.bin/perl/lib/sigtrap.pm') diff --git a/gnu/usr.bin/perl/lib/sigtrap.pm b/gnu/usr.bin/perl/lib/sigtrap.pm index c081123b6b4..8577c728c78 100644 --- a/gnu/usr.bin/perl/lib/sigtrap.pm +++ b/gnu/usr.bin/perl/lib/sigtrap.pm @@ -8,7 +8,7 @@ sigtrap - Perl pragma to enable simple signal handling use Carp; -$VERSION = 1.02; +$VERSION = 1.04; $Verbose ||= 0; sub import { @@ -95,8 +95,7 @@ sub handler_traceback { # Now go for broke. for ($i = 1; ($p,$f,$l,$s,$h,$w,$e,$r) = caller($i); $i++) { @a = (); - for $arg (@args) { - $_ = "$arg"; + for (@args) { s/([\'\\])/\\$1/g; s/([^\0]*)/'$1'/ unless /^(?: -?[\d.]+ | \*[\w:]* )$/x; @@ -180,7 +179,8 @@ The handler used for subsequently installed signals calls C I will be used as the handler for subsequently installed signals. I can be any value which is valid as an -assignment to an element of C<%SIG>. +assignment to an element of C<%SIG>. See L for examples of +handler functions. =back -- cgit v1.2.3