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  <dma...@netspace.org>
+
+       * Validation.pm: Catch gtk-doc HREF to non-fink locations
+
 2009-04-06  Daniel Macks  <dma...@netspace.org>
 
        * 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
Fink-commits@lists.sourceforge.net
http://news.gmane.org/gmane.os.apple.fink.cvs

Reply via email to