Update of /cvsroot/fink/fink/perlmod/Fink
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23761
Modified Files:
ChangeLog Package.pm
Log Message:
In list/apropos mode, put off variable assignments in loop until after
checking abort conditions.
Index: Package.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/Package.pm,v
retrieving revision 1.85
retrieving revision 1.86
diff -u -d -r1.85 -r1.86
--- Package.pm 2 Jan 2005 15:56:53 -0000 1.85
+++ Package.pm 9 Jan 2005 22:04:56 -0000 1.86
@@ -185,13 +185,24 @@
sub get_all_providers {
my $self = shift;
- my (@versions);
+ my @versions;
@versions = values %{$self->{_versions}};
push @versions, @{$self->{_providers}};
return @versions;
}
+# Are any of the package's providers installed?
+sub is_provided {
+ my $self = shift;
+ my $pvo;
+
+ foreach $pvo (@{$self->{_providers}}) {
+ return 1 if $pvo->is_installed();
+ }
+ return 0;
+}
+
### Do not change API! This is used by FinkCommander (fpkg_list.pl)
sub list_installed_versions {
Index: ChangeLog
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/ChangeLog,v
retrieving revision 1.797
retrieving revision 1.798
diff -u -d -r1.797 -r1.798
--- ChangeLog 9 Jan 2005 19:18:23 -0000 1.797
+++ ChangeLog 9 Jan 2005 22:04:56 -0000 1.798
@@ -1,5 +1,10 @@
2005-01-09 Daniel Macks <[EMAIL PROTECTED]>
+ * Package.pm: Put off variable assignments in loop until after
+ checking abort conditions.
+
+2005-01-09 Daniel Macks <[EMAIL PROTECTED]>
+
* Services.pm: rewrite execute() build_as_nobody to use recursive
wrapper (cuts down on system.log polution and fixes pipelines).
-------------------------------------------------------
The SF.Net email is sponsored by: Beat the post-holiday blues
Get a FREE limited edition SourceForge.net t-shirt from ThinkGeek.
It's fun and FREE -- well, almost....http://www.thinkgeek.com/sfshirt
_______________________________________________
Fink-commits mailing list
Fink-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/fink-commits
