summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/DB.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/DB.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/DB.pm4
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;
}