summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/sigtrap.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/sigtrap.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/sigtrap.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/Master/tlpkg/tlperl/lib/sigtrap.pm b/Master/tlpkg/tlperl/lib/sigtrap.pm
index 8577c728c78..de520a03be8 100644
--- a/Master/tlpkg/tlperl/lib/sigtrap.pm
+++ b/Master/tlpkg/tlperl/lib/sigtrap.pm
@@ -8,7 +8,7 @@ sigtrap - Perl pragma to enable simple signal handling
use Carp;
-$VERSION = 1.04;
+$VERSION = 1.05;
$Verbose ||= 0;
sub import {
@@ -95,7 +95,8 @@ sub handler_traceback {
# Now go for broke.
for ($i = 1; ($p,$f,$l,$s,$h,$w,$e,$r) = caller($i); $i++) {
@a = ();
- for (@args) {
+ for my $fr (@args) {
+ my $_ = $fr;
s/([\'\\])/\\$1/g;
s/([^\0]*)/'$1'/
unless /^(?: -?[\d.]+ | \*[\w:]* )$/x;