Update of /cvsroot/fink/fink/perlmod/Fink
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv31589/perlmod/Fink
Modified Files:
Validation.pm
Log Message:
don't check symlinks
Index: Validation.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/Validation.pm,v
retrieving revision 1.255
retrieving revision 1.256
diff -u -d -r1.255 -r1.256
--- Validation.pm 20 Apr 2007 18:12:01 -0000 1.255
+++ Validation.pm 20 Apr 2007 20:17:07 -0000 1.256
@@ -1505,22 +1505,24 @@
if (-x $otool) {
if ($filename =~ /\.(dylib|jnilib|so|bundle)$/) {
my $file = $destdir . $filename;
- $file =~ s/\'/\\\'/gs;
- if (open(OTOOL, "$otool -hv '$file' |"))
- {
- while (my $line = <OTOOL>) {
- if (my ($type) = $line =~
/MH_MAGIC.*\s+DYLIB\s+/) {
- if ($filename !~
/\.(dylib|jnilib)$/) {
- print "Warning:
$filename is a DYLIB but it does not end in .dylib or .jnilib.\n";
- }
- push(@installed_dylibs,
$filename);
- } elsif ($line =~ /MH_MAGIC/) {
- if ($filename =~
/\.dylib$/) {
- print "Warning:
$filename ends in .dylib but is not of filetype DYLIB according to otool.\n";
+ if (not -l $file) {
+ $file =~ s/\'/\\\'/gs;
+ if (open(OTOOL, "$otool -hv '$file' |"))
+ {
+ while (my $line = <OTOOL>) {
+ if (my ($type) = $line
=~ /MH_MAGIC.*\s+DYLIB\s+/) {
+ if ($filename
!~ /\.(dylib|jnilib)$/) {
+ print
"Warning: $filename is a DYLIB but it does not end in .dylib or .jnilib.\n";
+ }
+
push(@installed_dylibs, $filename);
+ } elsif ($line =~
/MH_MAGIC/) {
+ if ($filename
=~ /\.dylib$/) {
+ print
"Warning: $filename ends in .dylib but is not of filetype DYLIB according to
otool.\n";
+ }
}
}
+ close (OTOOL);
}
- close (OTOOL);
}
}
} else {
-------------------------------------------------------------------------
This SF.net email is sponsored by DB2 Express
Download DB2 Express C - the FREE version of DB2 express and take
control of your XML. No limits. Just data. Click to get it now.
http://sourceforge.net/powerbar/db2/
_______________________________________________
Fink-commits mailing list
Fink-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/fink-commits
