diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/DB.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/DB.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/tlpkg/tlperl/lib/DB.pm b/Master/tlpkg/tlperl/lib/DB.pm index fd0ff929f2f..404c57cb25c 100644 --- a/Master/tlpkg/tlperl/lib/DB.pm +++ b/Master/tlpkg/tlperl/lib/DB.pm @@ -41,7 +41,7 @@ BEGIN { $DB::subname = ''; # currently executing sub (fully qualified name) $DB::lineno = ''; # current line number - $DB::VERSION = $DB::VERSION = '1.07'; + $DB::VERSION = $DB::VERSION = '1.08'; # initialize private globals to avoid warnings @@ -244,8 +244,8 @@ sub backtrace { for (@a) { s/'/\\'/g; s/([^\0]*)/'$1'/ unless /^-?[\d.]+$/; - s/([\200-\377])/sprintf("M-%c",ord($1)&0177)/eg; - s/([\0-\37\177])/sprintf("^%c",ord($1)^64)/eg; + require 'meta_notation.pm'; + $_ = _meta_notation($_) if /[[:^print:]]/a; } $w = $w ? '@ = ' : '$ = '; $a = $h ? '(' . join(', ', @a) . ')' : ''; |