summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/texloganalyser
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2010-09-25 00:00:44 +0000
committerKarl Berry <karl@freefriends.org>2010-09-25 00:00:44 +0000
commit9c83b6f87061ac49b39780a1c4da07e178ffccd7 (patch)
tree3da32517a051ed589d27ab7a775ac33639fe7d1c /Master/texmf-dist/scripts/texloganalyser
parentac6c598239d08790d81f511cf537ac22b6c3eb10 (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-xMaster/texmf-dist/scripts/texloganalyser/texloganalyser17
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