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

Reply via email to