Update of /cvsroot/fink/fink/perlmod/Fink
In directory sc8-pr-cvs1:/tmp/cvs-serv27469/perlmod/Fink
Modified Files:
PkgVersion.pm
Log Message:
skip stuff that shouldn't be scanned... should speed up prebinding on
packages with a lot of docs and stuff
Index: PkgVersion.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/PkgVersion.pm,v
retrieving revision 1.148
retrieving revision 1.149
diff -u -d -r1.148 -r1.149
--- PkgVersion.pm 11 Oct 2003 22:31:18 -0000 1.148
+++ PkgVersion.pm 13 Oct 2003 20:17:12 -0000 1.149
@@ -1679,8 +1679,9 @@
print "Finding prebound objects...\n";
my ($is_prebound, $is_exe, $name);
find({ wanted => sub {
+ # common things that shouldn't be objects
+ return if
(/\.(bz2|c|cfg|conf|class|cpp|csh|db|dll|gif|gz|h|html|info|ini|jpg|m4|mng|pdf|png|po|sh|tar|txt|wav|xml)$/i);
return unless (defined $_ and $_ ne "" and -f $_ and not -l $_);
- return if (/\.class$/); # java looks like mach-o!
return if (readlink $_ =~ /\/usr\/lib/); # don't re-prebind stuff in
/usr/lib
#print "\$_ = $_\n";
$is_prebound = 0;
-------------------------------------------------------
This SF.net email is sponsored by: SF.net Giveback Program.
SourceForge.net hosts over 70,000 Open Source Projects.
See the people who have HELPED US provide better services:
Click here: http://sourceforge.net/supporters.php
_______________________________________________
Fink-commits mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/fink-commits
