Update of /cvsroot/fink/fink/perlmod/Fink
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26936
Modified Files:
Tag: branch_0_24
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.26.4.1
retrieving revision 1.26.4.2
diff -u -d -r1.26.4.1 -r1.26.4.2
--- FinkVersion.pm.in 3 Jan 2006 20:14:47 -0000 1.26.4.1
+++ FinkVersion.pm.in 21 Mar 2006 22:54:08 -0000 1.26.4.2
@@ -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;
@@ -76,7 +77,7 @@
=item distribution_version
- my $dist_version = distribution_version
+ my $dist_version = distribution_version;
Returns the fink distribution version you're currently using.
@@ -96,6 +97,26 @@
return $dv;
}
+=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
Index: ChangeLog
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/ChangeLog,v
retrieving revision 1.873.2.91
retrieving revision 1.873.2.92
diff -u -d -r1.873.2.91 -r1.873.2.92
--- ChangeLog 17 Mar 2006 22:35:31 -0000 1.873.2.91
+++ ChangeLog 21 Mar 2006 22:54:08 -0000 1.873.2.92
@@ -1,3 +1,7 @@
+2006-03-21 Dave Morrison <[EMAIL PROTECTED]>
+
+ * FinkVersion.pm.in: new function default_binary_version
+
2006-03-17 Benjamin Reed <[EMAIL PROTECTED]>
* PkgVersion.pm: handle when there are extra ='s in the environment vars
-------------------------------------------------------
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
