Update of /cvsroot/fink/experimental/thesin/finkmods/depends/perlmod/Fink
In directory usw-pr-cvs1:/tmp/cvs-serv12269/perlmod/Fink
Modified Files:
Depends.pm
Log Message:
added versioning
Index: Depends.pm
===================================================================
RCS file: /cvsroot/fink/experimental/thesin/finkmods/depends/perlmod/Fink/Depends.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- Depends.pm 10 Oct 2002 20:47:36 -0000 1.2
+++ Depends.pm 10 Oct 2002 21:32:29 -0000 1.3
@@ -42,7 +42,7 @@
our %PACKAGES;
# this is the one and only version number
-our $depends_version = "0.1.2.cvs";
+our $depends_version = "0.1.3.cvs";
END { } # module clean-up code here (global destructor)
@@ -56,6 +56,7 @@
my $self = shift;
my $pkgname = shift;
my (@depends, $depend);
+ my ($pkgversion);
unless (defined $pkgname) {
print "NOP\n";
@@ -67,6 +68,9 @@
foreach $depend (@depends) {
chomp($depend);
+ $pkgversion = get_dependversion($depend);
+ $pkgversion = "(>= $pkgversion)";
+ $depend = "$depend $pkgversion";
$PACKAGES{$depend} = 1;
}
@@ -77,6 +81,17 @@
}
return;
+}
+
+sub get_dependversion($depend) {
+ my $depend = shift;
+ my ($pkgversion);
+
+ $pkgversion = `fink list --width=200 $depend | grep $depend | awk {'print \$3'}`;
+ $pkgversion =~ s/\:.*$//; # strip out everything after the colon
+ chomp($pkgversion);
+
+ return $pkgversion;
}
sub check_pkg {
-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf
_______________________________________________
Fink-commits mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/fink-commits
