Update of /cvsroot/fink/fink/perlmod/Fink
In directory sc8-pr-cvs17:/tmp/cvs-serv21261
Modified Files:
Services.pm
Log Message:
be more forgiving (and smarter) about the version-string we return
Index: Services.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/Services.pm,v
retrieving revision 1.217
retrieving revision 1.218
diff -u -d -r1.217 -r1.218
--- Services.pm 13 Jun 2007 06:05:06 -0000 1.217
+++ Services.pm 14 Jun 2007 05:13:23 -0000 1.218
@@ -1257,15 +1257,13 @@
'2.95.2' => '2',
'2.95' => '2',
'3.1' => '3',
- '3.3' => '3.3',
- '4.0.0' => '4.0',
- '4.0.1' => '4.0',
);
sub gcc_select_arg {
my $vers = shift;
- return $gcc_select_table{$vers} if (exists
$gcc_select_table{$vers} and defined $gcc_select_table{$vers});
- return undef;
+ return $gcc_select_table{$vers} if (defined
$gcc_select_table{$vers});
+ $vers =~ s/^(\d+\.\d+).*$/$1/;
+ return $vers;
}
}
-------------------------------------------------------------------------
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
