diff options
| author | Alexey Tourbin <at@altlinux.ru> | 2007-02-25 00:24:32 +0300 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-02-25 17:00:26 +0000 |
| commit | 825b6c4f9313badca63d266064f44426a9a64a50 (patch) | |
| tree | 809369acfd157a1a622ddb35dd0808c3a64c8781 | |
| parent | 191f87d57c0c1de37eade12374d34b5d6bd6302a (diff) | |
| download | perl-825b6c4f9313badca63d266064f44426a9a64a50.tar.gz | |
sigtrap.pm (handler_traceback): do not clobber $_
Message-ID: <20070224182432.GA14446@localhost.localdomain>
p4raw-id: //depot/perl@30399
| -rw-r--r-- | lib/sigtrap.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lib/sigtrap.pm b/lib/sigtrap.pm index c65b7568fa..8577c728c7 100644 --- a/lib/sigtrap.pm +++ b/lib/sigtrap.pm @@ -8,7 +8,7 @@ sigtrap - Perl pragma to enable simple signal handling use Carp; -$VERSION = 1.03; +$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; |