From d7c6e8b958a653501f480b1cdc02c5020306669f Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 24 Nov 1999 19:20:30 +0000
Subject: *** empty log message ***

---
 perl-install/common.pm | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

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

diff --git a/perl-install/common.pm b/perl-install/common.pm
index 33999ac11..148011f51 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -351,17 +351,14 @@ sub template2file($$%) {
     my ($inputfile, $outputfile, %toreplace) = @_;
     local *OUT; local *IN;
 
-    open IN , $inputfile  or die "Can't open $inputfile $!";
+    open IN, $inputfile  or die "Can't open $inputfile $!";
     if ($::testing) {
 	*OUT = *STDOUT;
     } else {
 	open OUT, ">$outputfile" or die "Can't open $outputfile $!";
     }
 
-    while (<IN>) {
-	s/@@@(.*?)@@@/$toreplace{$1}/g;
-	print OUT;
-    }
+    map { s/@@@(.*?)@@@/$toreplace{$1}/g; print OUT; } <IN>;
 }
 
 sub substInFile(&@) {
-- 
cgit v1.2.1