diff options
| author | Karl Berry <karl@freefriends.org> | 2012-11-20 18:08:54 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2012-11-20 18:08:54 +0000 |
| commit | c5add2ea5067382269ae6f19e345fda0b9a7bd21 (patch) | |
| tree | 02f512fda46d93079c9dc59c0d76f0e398150f83 /Master/tlpkg/tlperl/lib/DB.pm | |
| parent | 6c35e87bdc5a3f64833dbbc42e7d42e683db9d5b (diff) | |
perl 5.16.2, compiled without optimization for Windows (from siep)
git-svn-id: svn://tug.org/texlive/trunk@28315 c570f23f-e606-0410-a88d-b1316a301751
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; } |