summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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" .