Update of /cvsroot/fink/fink/perlmod/Fink
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17272/perlmod/Fink
Modified Files:
VirtPackage.pm
Log Message:
This will be better
Index: VirtPackage.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/VirtPackage.pm,v
retrieving revision 1.73
retrieving revision 1.74
diff -u -d -r1.73 -r1.74
--- VirtPackage.pm 28 Feb 2005 15:49:13 -0000 1.73
+++ VirtPackage.pm 28 Feb 2005 15:59:41 -0000 1.74
@@ -999,18 +999,25 @@
}
close(FILEIN);
}
- } elsif (-f "/Library/Receipts/Growl.pkg/Contents/Info.plist") {
- if (open(FILEIN,
'/Library/Receipts/Growl.pkg/Contents/Info.plist')) {
- local $/ = undef;
- if (<FILEIN> =~
/<key>CFBundleShortVersionString<\/key>[\r\n\s]*<string>([\d\.]+)<\/string>/) {
- $growl_version = $1;
- }
- close(FILEIN);
- }
- } else {
- print STDERR
"/Library/PreferencePanes/Growl.prefPane/Contents/Info.plist not found... " if
($options{debug});
+ } else {
print STDERR
"/Library/Receipts/Growl.pkg/Contents/Info.plist not found... " if
($options{debug});
$growl_version = "0";
+ }
+
+ ### This check is for growl's less then 0.6
+ if ($growl_version eq "1.0") {
+ if (-f
"/Library/Receipts/Growl.pkg/Contents/Info.plist") {
+ if (open(FILEIN,
'/Library/Receipts/Growl.pkg/Contents/Info.plist')) {
+ local $/ = undef;
+ if (<FILEIN> =~
/<key>CFBundleShortVersionString<\/key>[\r\n\s]*<string>([\d\.]+)<\/string>/) {
+ $growl_version = $1;
+ }
+ close(FILEIN);
+ }
+ } else {
+ print STDERR
"/Library/PreferencePanes/Growl.prefPane/Contents/Info.plist not found... " if
($options{debug});
+ $growl_version = "0";
+ }
}
} else {
print STDERR "missing\n" if ($options{debug});
-------------------------------------------------------
SF email is sponsored by - The IT Product Guide
Read honest & candid reviews on hundreds of IT Products from real users.
Discover which products truly live up to the hype. Start reading now.
http://ads.osdn.com/?ad_id=6595&alloc_id=14396&op=click
_______________________________________________
Fink-commits mailing list
Fink-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/fink-commits
