diff options
Diffstat (limited to 'Master/texmf-dist/scripts/texloganalyser')
| -rwxr-xr-x | Master/texmf-dist/scripts/texloganalyser/texloganalyser | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/Master/texmf-dist/scripts/texloganalyser/texloganalyser b/Master/texmf-dist/scripts/texloganalyser/texloganalyser index bcd0ef992cc..0d54d2f2274 100755 --- a/Master/texmf-dist/scripts/texloganalyser/texloganalyser +++ b/Master/texmf-dist/scripts/texloganalyser/texloganalyser @@ -38,8 +38,8 @@ use strict; use Getopt::Long; Getopt::Long::Configure ("bundling"); -my $version = "0.6"; -my $copyright = "2006-2009"; +my $version = "0.7"; +my $copyright = "2006-2010"; my $opt = { help => '', version => '', @@ -158,7 +158,7 @@ sub analyze { } # TeX files used if ($opt->{t}) { - scannedfiles($line, "tex"); + scannedtexfiles($line, "tex"); } # sty and cls files used if ($opt->{s}) { @@ -191,7 +191,14 @@ sub pagenumber { sub scannedfiles { my ($logline, $filetype) = @_; - if ($logline =~ m/^\((.*\.$filetype)/i) { + if ($logline =~ m/^\((.*\.$filetype)/i) { + print "(".$1.")"; + } +} + +sub scannedtexfiles { + my ($logline, $filetype) = @_; + if ($logline =~ m/\((.*\.$filetype)/i) { print "(".$1.")"; } } @@ -316,6 +323,8 @@ This program was first released in 2006. Its purpose was to display selective in =over +=item v0.7: bug patch for .tex files (-t option) + =item v0.6: default displays number of warnings (and page numbers). added option: references and label warnings |