Update of /cvsroot/fink/fink/perlmod/Fink
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31445
Modified Files:
ChangeLog FinkVersion.pm.in
Log Message:
new function default_binary_version
Index: FinkVersion.pm.in
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/FinkVersion.pm.in,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -d -r1.31 -r1.32
--- FinkVersion.pm.in 21 Mar 2006 06:30:14 -0000 1.31
+++ FinkVersion.pm.in 21 Mar 2006 23:03:23 -0000 1.32
@@ -28,7 +28,7 @@
require Exporter;
our @ISA = qw(Exporter);
-our @EXPORT_OK = qw(&fink_version &distribution_version &pkginfo_version
&max_info_level);
+our @EXPORT_OK = qw(&fink_version &distribution_version
&default_binary_version &pkginfo_version &max_info_level);
our %EXPORT_TAGS = ('ALL' => [EMAIL PROTECTED]);
use Fink::Config qw($basepath);
@@ -45,6 +45,7 @@
my $fink_version = fink_version;
my $dist_version = distribution_version;
+ my $default_version = default_binary_version($distribution);
my $pkginfo_version = pkginfo_version;
my $max_info_level = max_info_level;
@@ -97,6 +98,27 @@
}
+=item default_binary_version
+
+ my $b_dist_version = default_binary_version($distribution);
+
+Returns the most recent (binary) fink distribution version corresponding to
$distribution.
+
+=cut
+
+sub default_binary_version {
+ my $distribution = shift;
+ my %bindists = ("10.2-gcc3.3" => "0.6.4", "10.3" => "0.7.2",
"10.4-transitional" => "0.8.0");
+ my $dbv;
+ if (defined($bindists{$distribution})) {
+ $dbv = "$bindists{$distribution}";
+ } else {
+ $dbv = "none";
+ }
+ return $dbv;
+}
+
+
=item pkginfo_version
my $pkginfo_version = pkginfo_version;
Index: ChangeLog
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/ChangeLog,v
retrieving revision 1.1283
retrieving revision 1.1284
diff -u -d -r1.1283 -r1.1284
--- ChangeLog 21 Mar 2006 22:57:53 -0000 1.1283
+++ ChangeLog 21 Mar 2006 23:03:23 -0000 1.1284
@@ -1,3 +1,7 @@
+2006-03-21 Dave Morrison <[EMAIL PROTECTED]>
+
+ * FinkVersion.pm.in: new function default_binary_version
+
2006-03-21 Dave Vasilevsky <[EMAIL PROTECTED]>
* PkgVersion.pm:
-------------------------------------------------------
This SF.Net email is sponsored by xPML, a groundbreaking scripting language
that extends applications into web and mobile media. Attend the live webcast
and join the prime developer group breaking into this new coding territory!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=110944&bid=241720&dat=121642
_______________________________________________
Fink-commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/fink-commits
