Update of /cvsroot/fink/fink/perlmod/Fink
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv32355
Modified Files:
ChangeLog Validation.pm
Log Message:
Look for .deb that probably should have been --enable-gtk-doc
Index: Validation.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/Validation.pm,v
retrieving revision 1.304
retrieving revision 1.305
diff -u -d -r1.304 -r1.305
--- Validation.pm 6 Apr 2009 02:30:50 -0000 1.304
+++ Validation.pm 7 Apr 2009 17:44:28 -0000 1.305
@@ -1800,7 +1800,6 @@
lstat $File::Find::name;
$dpkg_file_count++ if -f _ || -l _;
-
# check that there won't be collisions on case-insensitive
# filesystems. Will only be triggered on pkgs built in
# case-sensitive filesystems (if case-insensitive, the files
@@ -1810,6 +1809,22 @@
&stack_msg($msgs, "Pathname collision on
case-insensitive filesystems", $filename);
}
+ # check that gtk-doc (devhelp) documenation cross-links aren't
+ # obviously incorrect local URLs
+ if ($filename =~/$basepath\/share\/gtk-doc\/.+\.html$/) {
+ if (!-l $File::Find::name and open my $gtkdocfile, '<',
$File::Find::name) {
+ while (<$gtkdocfile>) {
+ chomp;
+ if (/href\s*=\s*[\"\']?(\/[^\/]+)/) {
+ &stack_msg($msgs, "Bad local
URL (\"$1\" does not look like a fink location).", $filename, $_);
+ }
+ }
+ close $gtkdocfile;
+ } elsif (!-l _) {
+ &stack_msg($msgs, "Couldn't read gtk-doc file
\"$filename\": $!");
+ }
+ }
+
}; # end of CODE ref block
# check each file in the %d hierarchy according to the above-defined sub
Index: ChangeLog
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/ChangeLog,v
retrieving revision 1.1595
retrieving revision 1.1596
diff -u -d -r1.1595 -r1.1596
--- ChangeLog 6 Apr 2009 04:45:57 -0000 1.1595
+++ ChangeLog 7 Apr 2009 17:44:28 -0000 1.1596
@@ -1,3 +1,7 @@
+2009-04-07 Daniel Macks <[email protected]>
+
+ * Validation.pm: Catch gtk-doc HREF to non-fink locations
+
2009-04-06 Daniel Macks <[email protected]>
* Notify/XTerm.pm: non-standard implemenation, but need stub here
------------------------------------------------------------------------------
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
