use run_program and remove "require run_program"s

1 files changed, 1 insertions, 6 deletions

diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index 4006dc446..bb2b15252 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -7,6 +7,7 @@ use vars qw(%thedb %thedb_gsdriver %printer_type %printer_type_inv @papersize_ty
 
 use common qw(:common :system :file);
 use commands;
+use run_program;
 
 #-if we are in an DrakX config
 my $prefix = "";
@@ -333,7 +334,6 @@ sub write_cupsd_conf {
     close F;
 
     #- restart cups after updating configuration.
-    require run_program;
     run_program::rooted($prefix, "/etc/rc.d/init.d/cups restart"); sleep 1;
 }
 
@@ -489,7 +489,6 @@ sub configure_queue($) {
 	/CUPS/ && do {
 	    #- at this level, we are using lpadmin to create a local printer (only local
 	    #- printer are supported with printerdrake).
-	    require run_program;
 	    run_program::rooted($prefix, "lpadmin",
 				"-p", $entry->{QUEUE},
 				$entry->{State} eq 'Idle' && $entry->{Accepting} eq 'Yes' ? ("-E") : (),
@@ -634,7 +633,6 @@ sub remove_queue($) {
     $printer->{configured}{$printer->{QUEUE}} or return; #- something strange at this point.
 
     if ($printer->{mode} eq 'CUPS') {
-	require run_program;
 	run_program::rooted($prefix, "lpadmin", "-x", $printer->{QUEUE});
     }
     delete $printer->{configured}{$printer->{QUEUE}};
@@ -647,7 +645,6 @@ sub restart_queue($) {
     for ($printer->{mode}) {
 	/CUPS/ && do {
 	    #- restart cups before cleaning the queue.
-	    require run_program;
 	    run_program::rooted($prefix, "/etc/rc.d/init.d/cups start"); sleep 1;
 	    run_program::rooted($prefix, "lprm-cups", "-P$queue", "-");
 	    last };
@@ -658,7 +655,6 @@ sub restart_queue($) {
 		kill 'TERM', $pidlpd if $pidlpd;
 		unlink "$prefix$_";
 	    }
-	    require run_program;
 	    run_program::rooted($prefix, "lprm-lpd", "-P$queue", "-"); sleep 1;
 	    run_program::rooted($prefix, "lpd"); sleep 1;
 	    last };
@@ -675,7 +671,6 @@ sub print_pages($@) {
 	/lpr/  and ($lpr, $lpq) = ("/usr/bin/lpq-lpd", "/usr/bin/lpq-lpd");
     }
 
-    require run_program;
     foreach (@pages) {
 	run_program::rooted($prefix, $lpr, "-P$queue", $_);
     }