diff options
| -rw-r--r-- | perl-install/printer/main.pm | 5 |
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" . |