summaryrefslogtreecommitdiffstats
path: root/perl-install/printer/main.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-12-05 23:21:10 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-12-05 23:21:10 +0000
commit973e9a23561510701896580d05a8393f72c86089 (patch)
treeede4aef42e2aa9c637fa8a298e606a024d6b1f34 /perl-install/printer/main.pm
parent4d07cd7bcaa7cdd09d1407de21fc6959312b44d7 (diff)
downloaddrakx-973e9a23561510701896580d05a8393f72c86089.tar
drakx-973e9a23561510701896580d05a8393f72c86089.tar.gz
drakx-973e9a23561510701896580d05a8393f72c86089.tar.bz2
drakx-973e9a23561510701896580d05a8393f72c86089.tar.xz
drakx-973e9a23561510701896580d05a8393f72c86089.zip
$_ was not localized, fixing (and cleanup)
Diffstat (limited to 'perl-install/printer/main.pm')
-rw-r--r--perl-install/printer/main.pm5
1 files changed, 2 insertions, 3 deletions
diff --git a/perl-install/printer/main.pm b/perl-install/printer/main.pm
index 7f1a4a44c..a9a45e2c4 100644
--- a/perl-install/printer/main.pm
+++ b/perl-install/printer/main.pm
@@ -1398,10 +1398,9 @@ sub configure_hpoj {
die "Could not open /etc/ptal/$ptaldevice for writing!\n";
# Write file header.
- $_ = `date`;
- chomp;
+ my $date = chomp_(`date`);
print CONFIG
- "# Added $_ by \"printerdrake\".\n" .
+ "# Added $date by \"printerdrake\".\n" .
"\n" .
"# The basic format for this file is \"key[+]=value\".\n" .
"# If you say \"+=\" instead of \"=\", then the value is appended to any\n" .