From 1e00a512393b4630fc9dba1dba051fa64c0ccd30 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 6 Jan 2004 16:12:52 +0000 Subject: get rid of g_auto_install (unused & not working) --- perl-install/pkgs.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/pkgs.pm') diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 2f7f62ce9..fb2960042 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -939,7 +939,7 @@ sub install($$$;$$) { delete $packages->{rpmdb}; #- make sure rpmdb is closed before. - return if $::g_auto_install || !scalar(@$toInstall); + return if !@$toInstall; #- for root loopback'ed /boot my $loop_boot = loopback::prepare_boot(); @@ -1159,7 +1159,7 @@ sub remove { delete $packages->{rpmdb}; #- make sure rpmdb is closed before. - return if $::g_auto_install || !@{$toRemove || []}; + return if !@{$toRemove || []}; my $db = rpmDbOpenForInstall($prefix) or die "error opening RPM database: ", c::rpmErrorString(); my $trans = $db->create_transaction($prefix); -- cgit v1.2.1