texlive[54526] trunk: texloganalyser (24mar20)

[commits+karl at tug.org]

Revision: 54526
          http://tug.org/svn/texlive?view=revision&revision=54526
Author:   karl
Date:     2020-03-24 21:54:13 +0100 (Tue, 24 Mar 2020)
Log Message:
-----------
texloganalyser (24mar20)

Modified Paths:
--------------
    trunk/Build/source/texk/texlive/linked_scripts/texloganalyser/texloganalyser
    trunk/Master/texmf-dist/doc/support/texloganalyser/README
    trunk/Master/texmf-dist/scripts/texloganalyser/texloganalyser

Modified: trunk/Build/source/texk/texlive/linked_scripts/texloganalyser/texloganalyser
===================================================================
--- trunk/Build/source/texk/texlive/linked_scripts/texloganalyser/texloganalyser	2020-03-24 20:54:02 UTC (rev 54525)
+++ trunk/Build/source/texk/texlive/linked_scripts/texloganalyser/texloganalyser	2020-03-24 20:54:13 UTC (rev 54526)
@@ -38,7 +38,7 @@
 use Getopt::Long;
 Getopt::Long::Configure ("bundling");
 
-my $version = "0.10";
+my $version = "0.11";
 my $copyright = "2006-2020";
 my $opt = {
     help => '',
@@ -132,13 +132,13 @@
         # look for boxes warnings
         if ($opt->{c} and $opt->{o} and $opt->{h}) {
             if ($line =~ m/\\hbox/ and $line =~ m/Overfull/) {
-                $line =~ m/^Overfull \\hbox \((\d+\.\d+)pt too wide\) (in paragraph|detected) at lines? ([0-9\-]+)$/;
+                $line =~ m/^Overfull \\hbox \((\d+\.\d+)pt too wide\) .*$/;
                 $cbox->{$1} = 'Page '.$png.': '.$line;
                 $chead = 'Overfull hboxes classified:';
             }
         } elsif ($opt->{c} and $opt->{u} and $opt->{h}) {
             if ($line =~ m/\\hbox/ and $line =~ m/Underfull/) {
-                $line =~ m/^Underfull \\hbox \(badness (\d+)\) (in paragraph|detected) at lines? ([0-9\-]+)$/;
+                $line =~ m/^Underfull \\hbox \(badness (\d+)\) .*$/;
                 $cbox->{$1} = 'Page '.$png.': '.$line;
                 $chead = 'Underfull hboxes classified:';
             }
@@ -385,6 +385,8 @@
 
 =over
 
+=item v0.11: bug fix for -c option (regexp was too specific)
+
 =item v0.10: added option -c, to classify boxes warnings by size (Paulo Ney de Souza's idea).
 
 =item v0.9: added option --last, if log file contains several compilations (Akim Demaille's patch).

Modified: trunk/Master/texmf-dist/doc/support/texloganalyser/README
===================================================================
--- trunk/Master/texmf-dist/doc/support/texloganalyser/README	2020-03-24 20:54:02 UTC (rev 54525)
+++ trunk/Master/texmf-dist/doc/support/texloganalyser/README	2020-03-24 20:54:13 UTC (rev 54526)
@@ -1,4 +1,4 @@
-This is texloganalyser (Perl script), version 0.10
+This is texloganalyser (Perl script), version 0.11
 	 Copyright 2006-2020 Thomas van Oudenhove
 	 License: BSD
 

Modified: trunk/Master/texmf-dist/scripts/texloganalyser/texloganalyser
===================================================================
--- trunk/Master/texmf-dist/scripts/texloganalyser/texloganalyser	2020-03-24 20:54:02 UTC (rev 54525)
+++ trunk/Master/texmf-dist/scripts/texloganalyser/texloganalyser	2020-03-24 20:54:13 UTC (rev 54526)
@@ -38,7 +38,7 @@
 use Getopt::Long;
 Getopt::Long::Configure ("bundling");
 
-my $version = "0.10";
+my $version = "0.11";
 my $copyright = "2006-2020";
 my $opt = {
     help => '',
@@ -132,13 +132,13 @@
         # look for boxes warnings
         if ($opt->{c} and $opt->{o} and $opt->{h}) {
             if ($line =~ m/\\hbox/ and $line =~ m/Overfull/) {
-                $line =~ m/^Overfull \\hbox \((\d+\.\d+)pt too wide\) (in paragraph|detected) at lines? ([0-9\-]+)$/;
+                $line =~ m/^Overfull \\hbox \((\d+\.\d+)pt too wide\) .*$/;
                 $cbox->{$1} = 'Page '.$png.': '.$line;
                 $chead = 'Overfull hboxes classified:';
             }
         } elsif ($opt->{c} and $opt->{u} and $opt->{h}) {
             if ($line =~ m/\\hbox/ and $line =~ m/Underfull/) {
-                $line =~ m/^Underfull \\hbox \(badness (\d+)\) (in paragraph|detected) at lines? ([0-9\-]+)$/;
+                $line =~ m/^Underfull \\hbox \(badness (\d+)\) .*$/;
                 $cbox->{$1} = 'Page '.$png.': '.$line;
                 $chead = 'Underfull hboxes classified:';
             }
@@ -385,6 +385,8 @@
 
 =over
 
+=item v0.11: bug fix for -c option (regexp was too specific)
+
 =item v0.10: added option -c, to classify boxes warnings by size (Paulo Ney de Souza's idea).
 
 =item v0.9: added option --last, if log file contains several compilations (Akim Demaille's patch).