diff options
| author | Todd C. Miller <millert@cvs.openbsd.org> | 2008-09-29 17:36:25 +0000 |
|---|---|---|
| committer | Todd C. Miller <millert@cvs.openbsd.org> | 2008-09-29 17:36:25 +0000 |
| commit | 00dd722c5378e478eed4daa17120ab518ad2f0b8 (patch) | |
| tree | daf0e090e9719c0407f3a6b208b46b6cc2645a55 /gnu/usr.bin/perl/lib/sigtrap.pm | |
| parent | bfa863c83bfd01d72a748decaaf2676b800c60ff (diff) | |
fix conflicts and merge in local changes to perl 5.10.0
Diffstat (limited to 'gnu/usr.bin/perl/lib/sigtrap.pm')
| -rw-r--r-- | gnu/usr.bin/perl/lib/sigtrap.pm | 8 |
1 files changed, 4 insertions, 4 deletions
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<die> I<your-handler> will be used as the handler for subsequently installed signals. I<your-handler> 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<perlvar> for examples of +handler functions. =back |