perl/modules/W3C/LogValidator/lib/W3C/LogValidator HTMLValidator.pm,1.29,1.30

Update of /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator
In directory hutz:/tmp/cvs-serv7499

Modified Files:
	HTMLValidator.pm 
Log Message:
don't output "trimmed list" unless verbose is set


Index: HTMLValidator.pm
===================================================================
RCS file: /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator/HTMLValidator.pm,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -d -r1.29 -r1.30
--- HTMLValidator.pm	18 Nov 2008 16:48:56 -0000	1.29
+++ HTMLValidator.pm	18 Dec 2009 10:23:09 -0000	1.30
@@ -211,7 +211,9 @@
                 }
             push @trimmed_uris,$uri if ($match);            
         }
-        print "trimmed list to ", scalar @trimmed_uris. " URIs\n";
+	if ($verbose > 2) { 
+	    print "trimmed list to ", scalar @trimmed_uris. " URIs\n";
+	}
         return @trimmed_uris;
 }
 

Received on Friday, 18 December 2009 10:23:12 UTC