diff options
| author | Karl Berry <karl@freefriends.org> | 2010-09-25 00:00:44 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2010-09-25 00:00:44 +0000 |
| commit | 9c83b6f87061ac49b39780a1c4da07e178ffccd7 (patch) | |
| tree | 3da32517a051ed589d27ab7a775ac33639fe7d1c /Master/texmf-dist/scripts/texloganalyser | |
| parent | ac6c598239d08790d81f511cf537ac22b6c3eb10 (diff) | |
texloganalyser update (22jul10)
git-svn-id: svn://tug.org/texlive/trunk@19888 c570f23f-e606-0410-a88d-b1316a301751
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 |