Update of /cvsroot/fink/fink/perlmod/Fink
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv9479
Modified Files:
ChangeLog Validation.pm
Log Message:
less verbose gtk-doc output
Index: Validation.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/Validation.pm,v
retrieving revision 1.306
retrieving revision 1.307
diff -u -d -r1.306 -r1.307
--- Validation.pm 7 Apr 2009 18:15:34 -0000 1.306
+++ Validation.pm 8 Apr 2009 05:19:21 -0000 1.307
@@ -1814,10 +1814,11 @@
# obviously incorrect local URLs
if ($filename =~/$basepath\/share\/gtk-doc\/.+\.html$/) {
if (!-l $File::Find::name and open my $gtkdocfile, '<',
$File::Find::name) {
+ my %seen_lines = (); # only print one example
of each bad line
while (<$gtkdocfile>) {
chomp;
if (/href\s*=\s*[\"\']?(\/[^\/]+)/) {
- &stack_msg($msgs, "Bad local
URL (\"$1\" does not look like a fink location).", $filename, $_);
+ &stack_msg($msgs, "Bad local
URL (\"$1\" does not look like a fink location).", $filename, $_) unless
$seen_lines{$_}++;
}
}
close $gtkdocfile;
Index: ChangeLog
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/ChangeLog,v
retrieving revision 1.1597
retrieving revision 1.1598
diff -u -d -r1.1597 -r1.1598
--- ChangeLog 7 Apr 2009 18:15:34 -0000 1.1597
+++ ChangeLog 8 Apr 2009 05:19:21 -0000 1.1598
@@ -1,3 +1,8 @@
+2009-04-08 Daniel Macks <[email protected]>
+
+ * Validation.pm: Only print first occurrence of each bad gtk-doc
+ line
+
2009-04-07 Dave Morrison <[email protected]>
* Validation.pm: allow x86_64 as an Architecture value
------------------------------------------------------------------------------
This SF.net email is sponsored by:
High Quality Requirements in a Collaborative Environment.
Download a free trial of Rational Requirements Composer Now!
http://p.sf.net/sfu/www-ibm-com
_______________________________________________
Fink-commits mailing list
[email protected]
http://news.gmane.org/gmane.os.apple.fink.cvs
