From bb559b58b6c97b47b9051e78c933bd1a076d9787 Mon Sep 17 00:00:00 2001 From: Pascal Terjan Date: Mon, 18 Jan 2010 13:16:28 +0000 Subject: - Fix --log option --- iurt2 | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'iurt2') diff --git a/iurt2 b/iurt2 index 9d5b6bf..c34874e 100755 --- a/iurt2 +++ b/iurt2 @@ -199,7 +199,8 @@ $run{todo} = []; sub { $run{log} = pop @_; open my $log, ">$run{log}" or die "unable to open $run{log}\n"; - $run{LOG} = sub { print $log @_ }; + $run{LOG} = sub { print $log @_ }; + $run{logfd} = $log; print *$log, "command line: @ARGV\n"; 1; }, "Log file" ], @@ -359,7 +360,7 @@ $run{todo} = []; open(my $LOG, ">&STDERR"); $run{LOG} = sub { print $LOG @_ }; -plog_init($program_name, $LOG, 7, 1); # For parsing command line +plog_init($program_name, $run{logfd}||$LOG, 7, 1); # For parsing command line # Display version information # @@ -378,7 +379,7 @@ foreach my $t (@$todo) { } # Use the real verbose level -plog_init($program_name, $LOG, $run{verbose}, 1); +plog_init($program_name, $run{logfd}||$LOG, $run{verbose}, 1); $run{distro_tag} = $run{distro}; $run{distro_tag} =~ s,/,-,g; -- cgit v1.2.1