From 157fe13a76e798fa8af5f79c792c704a593f6c93 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 8 Aug 2001 18:26:31 +0000
Subject: add interactive_pkgs stuff

---
 perl-install/printer.pm | 15 ---------------
 1 file changed, 15 deletions(-)

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

diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index 91e11bdf3..6b5fe10df 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -100,21 +100,6 @@ sub stop_service ($) {
 	|| die "Could not stop $service!";
 }
 
-sub installed ($) {
-    my ($package) = @_;
-    open RPMCHECK, "rpm -qa --root $prefix/ | grep $package |" ||
-	die "Could not run rpm!";
-    my $found = 0;
-    while (<RPMCHECK>) {
-	if ($_ =~ m/^$package\-.+\-.+mdk/) {
-	    $found = 1;
-	    last;
-	}
-    }
-    close RPMCHECK;
-    return $found;
-}
-
 sub copy_printer_params($$) {
     my ($from, $to) = @_;
     map { $to->{$_} = $from->{$_} } grep { $_ ne 'configured' } keys %$from; 
-- 
cgit v1.2.1