From 6a05c7c12fcc70058febc82d139dbe4155ac951b Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 19 Apr 2000 13:28:31 +0000
Subject: *** empty log message ***

---
 perl-install/printer.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index ab3464b9a..69a8db954 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -702,11 +702,13 @@ sub restart_queue($) {
     run_program::rooted($prefix, "lpd"); sleep 1;
 }
 
-sub print_pages($$@) {
+sub print_pages($@) {
     my ($queue, @pages) = @_;
 
     require run_program;
-    run_program::rooted($prefix, "lpr", "-P$queue", $_) foreach @pages;
+    foreach (@pages) {
+	run_program::rooted($prefix, "lpr", "-P$queue", $_);
+    }
 
     sleep 5; #- allow lpr to send pages.
     local *F;
-- 
cgit v1.2.1