This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
sigtrap.pm (handler_traceback): do not clobber $_
authorAlexey Tourbin <at@altlinux.ru>
Sat, 24 Feb 2007 21:24:32 +0000 (00:24 +0300)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 25 Feb 2007 17:00:26 +0000 (17:00 +0000)
Message-ID: <20070224182432.GA14446@localhost.localdomain>

p4raw-id: //depot/perl@30399

lib/sigtrap.pm

index c65b756..8577c72 100644 (file)
@@ -8,7 +8,7 @@ sigtrap - Perl pragma to enable simple signal handling
 
 use Carp;
 
 
 use Carp;
 
-$VERSION = 1.03;
+$VERSION = 1.04;
 $Verbose ||= 0;
 
 sub import {
 $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 = ();
     # 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;
            s/([\'\\])/\\$1/g;
            s/([^\0]*)/'$1'/
              unless /^(?: -?[\d.]+ | \*[\w:]* )$/x;