Update of /cvsroot/fink/fink/perlmod/Fink
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17261/perlmod/Fink
Modified Files:
Services.pm
Log Message:
Fixed logic (I hope)
Index: Services.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/Services.pm,v
retrieving revision 1.192
retrieving revision 1.193
diff -u -d -r1.192 -r1.193
--- Services.pm 21 Nov 2005 18:31:27 -0000 1.192
+++ Services.pm 21 Dec 2005 03:08:53 -0000 1.193
@@ -34,6 +34,7 @@
use Data::Dumper;
use File::Find;
use File::Spec;
+use Fink::Notify;
use strict;
use warnings;
@@ -1344,12 +1345,13 @@
sub get_kernel_vers
{
my $darwin_version = get_kernel_vers_long();
- if ($darwin_version =~ s/^(\d*).*/$1/)
+ if ($darwin_version =~ s/^(\d+)\.\d+(\.\d+)*/$1/)
{
return $darwin_version;
} else {
my $error = "Couldn't determine major version number for
$darwin_version kernel!";
- my $notifier->notify(event => 'finkPackageBuildFailed',
description => $error);
+ my $notifier = Fink::Notify->new();
+ $notifier->notify(event => 'finkPackageBuildFailed',
description => $error);
die $error . "\n";
}
}
-------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc. Do you grep through log files
for problems? Stop! Download the new AJAX search engine that makes
searching your log files as easy as surfing the web. DOWNLOAD SPLUNK!
http://ads.osdn.com/?ad_id=7637&alloc_id=16865&op=click
_______________________________________________
Fink-commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/fink-commits
