diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/sigtrap.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/sigtrap.pm | 5 |
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; |