From 9c83b6f87061ac49b39780a1c4da07e178ffccd7 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 25 Sep 2010 00:00:44 +0000 Subject: texloganalyser update (22jul10) git-svn-id: svn://tug.org/texlive/trunk@19888 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/scripts/texloganalyser/texloganalyser | 17 +++++++++++++---- 1 file changed, 13 insertions(+), 4 deletions(-) (limited to 'Master/texmf-dist/scripts/texloganalyser') 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 -- cgit v1.2.3