diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2002-12-05 23:21:10 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2002-12-05 23:21:10 +0000 |
commit | 973e9a23561510701896580d05a8393f72c86089 (patch) | |
tree | ede4aef42e2aa9c637fa8a298e606a024d6b1f34 | |
parent | 4d07cd7bcaa7cdd09d1407de21fc6959312b44d7 (diff) | |
download | drakx-backup-do-not-use-973e9a23561510701896580d05a8393f72c86089.tar drakx-backup-do-not-use-973e9a23561510701896580d05a8393f72c86089.tar.gz drakx-backup-do-not-use-973e9a23561510701896580d05a8393f72c86089.tar.bz2 drakx-backup-do-not-use-973e9a23561510701896580d05a8393f72c86089.tar.xz drakx-backup-do-not-use-973e9a23561510701896580d05a8393f72c86089.zip |
$_ was not localized, fixing (and cleanup)
-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" . |