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