From 973e9a23561510701896580d05a8393f72c86089 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 5 Dec 2002 23:21:10 +0000 Subject: $_ was not localized, fixing (and cleanup) --- perl-install/printer/main.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'perl-install') 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" . -- cgit v1.2.1