From 2d7ce2007c8bcaf5b7e45e0a1dd67862a5637643 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 5 Sep 1999 11:54:09 +0000
Subject: no_comment

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

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

diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index 24b8af811..b02fe3a10 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -363,8 +363,8 @@ sub create_config_file($$%) {
     
     while (<IN>) {
 	if (/@@@(.*)@@@/) {
-	    defined($toreplace{$1}) or die "I can't replace $chaine";
-	    s/@@@(.*)@@@/$toreplace{$1}/g;
+	    my $r = $toreplace{$1} or die "I can't replace $1";
+	    s/@@@(.*)@@@/$r/g;
 	}
 	print OUT;
     }
-- 
cgit v1.2.1