Remove cpan/Module-Pluggable

[perl5.git] / lib / sigtrap.pm

diff --git a/lib/sigtrap.pm b/lib/sigtrap.pm
index 025845e..df728c8 100644 (file)
--- a/lib/sigtrap.pm
+++ b/lib/sigtrap.pm
@@ -8,7 +8,7 @@ sigtrap - Perl pragma to enable simple signal handling
 
 use Carp;
 
-$VERSION = 1.06;
+$VERSION = 1.07;
 $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 my $fr (@args) {
-            my $_ = $fr;
+       for (@{[@args]}) {
            s/([\'\\])/\\$1/g;
            s/([^\0]*)/'$1'/
              unless /^(?: -?[\d.]+ | \*[\w:]* )$/x;