Update of /cvsroot/fink/fink/perlmod/Fink
In directory sc8-pr-cvs1:/tmp/cvs-serv29563
Modified Files:
PkgVersion.pm
Log Message:
Added two methods to access lists of sources and tarballs used by given package
Index: PkgVersion.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/PkgVersion.pm,v
retrieving revision 1.197
retrieving revision 1.198
diff -u -d -r1.197 -r1.198
--- PkgVersion.pm 1 Jan 2004 18:48:09 -0000 1.197
+++ PkgVersion.pm 2 Jan 2004 01:47:41 -0000 1.198
@@ -469,6 +469,15 @@
return "-";
}
+sub get_source_list {
+ my $self = shift;
+ my @list = {};
+ for (my $index = 1; $index<=$self->{_sourcecount}; $index++) {
+ push(@list, get_source($self, $index));
+ }
+ return @list;
+}
+
sub get_tarball {
my $self = shift;
my $index = shift || 1;
@@ -484,6 +493,15 @@
return &filename($self->param("Source".$index));
}
return "-";
+}
+
+sub get_tarball_list {
+ my $self = shift;
+ my @list = {};
+ for (my $index = 1; $index<=$self->{_sourcecount}; $index++) {
+ push(@list, get_tarball($self, $index));
+ }
+ return @list;
}
sub get_checksum {
-------------------------------------------------------
This SF.net email is sponsored by: IBM Linux Tutorials.
Become an expert in LINUX or just sharpen your skills. Sign up for IBM's
Free Linux Tutorials. Learn everything from the bash shell to sys admin.
Click now! http://ads.osdn.com/?ad_id=1278&alloc_id=3371&op=click
_______________________________________________
Fink-commits mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/fink-commits
