From 576d77f8a54bcbf0607a3b9c937d5a56248cb078 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 21 Jul 2004 01:22:37 +0000
Subject: ->{in}->do_pkgs gives the same kind of object, removing it

---
 perl-install/do_pkgs.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/do_pkgs.pm b/perl-install/do_pkgs.pm
index eff29a3dc..f9dd64a1c 100644
--- a/perl-install/do_pkgs.pm
+++ b/perl-install/do_pkgs.pm
@@ -32,7 +32,7 @@ sub ensure_is_installed {
 sub ensure_is_installed_if_available {
     my ($do, $pkg, $file) = @_;
     if (! -e "$::prefix$file" && !$::testing) {
-        $do->{in}->do_pkgs->what_provides($pkg) and $do->{in}->do_pkgs->install($pkg);
+        $do->what_provides($pkg) and $do->install($pkg);
     }
 }
     
-- 
cgit v1.2.1