From 5a08b6763c4a2efd6da24fc7a3d0149618e086ea Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 31 Jul 2002 22:40:00 +0000
Subject: make perl_checker happy again (replacing "{xx}->{yy}" by "{xx}{yy}")

---
 perl-install/install_any.pm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'perl-install/install_any.pm')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 8159ffe19..a69e8c0c6 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -1170,7 +1170,7 @@ sub what_provides {
 sub is_installed {
     my ($do, @l) = @_;
     foreach (@l) {
-	my $p = pkgs::packageByName($do->{o}->{packages}, $_);
+	my $p = pkgs::packageByName($do->{o}{packages}, $_);
 	$p && $p->flag_selected or return;
     }
     1;
@@ -1180,25 +1180,25 @@ sub remove {
     my ($do, @l) = @_;
 
     @l = grep {
-	my $p = pkgs::packageByName($do->{o}->{packages}, $_);
-	pkgs::unselectPackage($do->{o}->{packages}, $p) if $p;
+	my $p = pkgs::packageByName($do->{o}{packages}, $_);
+	pkgs::unselectPackage($do->{o}{packages}, $p) if $p;
 	$p;
     } @l;
-    run_program::rooted($do->{o}->{prefix}, 'rpm', '-e', @l);
+    run_program::rooted($do->{o}{prefix}, 'rpm', '-e', @l);
 }
 
 sub remove_nodeps {
     my ($do, @l) = @_;
 
     @l = grep {
-	my $p = pkgs::packageByName($do->{o}->{packages}, $_);
+	my $p = pkgs::packageByName($do->{o}{packages}, $_);
 	if ($p) {
 	    $p->set_flag_requested(0);
 	    $p->set_flag_required(0);
 	}
 	$p;
     } @l;
-    run_program::rooted($do->{o}->{prefix}, 'rpm', '-e', '--nodeps', @l);
+    run_program::rooted($do->{o}{prefix}, 'rpm', '-e', '--nodeps', @l);
 }
 ################################################################################
 
-- 
cgit v1.2.1