diff options
Diffstat (limited to 'perl-install/printer.pm')
| -rw-r--r-- | perl-install/printer.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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; } |