diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/DB.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/DB.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/tlperl/lib/DB.pm b/Master/tlpkg/tlperl/lib/DB.pm index 16ff99afa52..03f2b21e03b 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 (fullly qualified name) $DB::lineno = ''; # current line number - $DB::VERSION = $DB::VERSION = '1.03'; + $DB::VERSION = $DB::VERSION = '1.04'; # initialize private globals to avoid warnings @@ -258,7 +258,7 @@ sub backtrace { } elsif ($s eq '(eval)') { $s = "eval {...}"; } - $f = "file `$f'" unless $f eq '-e'; + $f = "file '$f'" unless $f eq '-e'; push @ret, "$w&$s$a from $f line $l"; last if $DB::signal; } |