From 109949b6891a3974dbd760b6c2679ee5d2507e7f Mon Sep 17 00:00:00 2001 From: Maarten Vanraes Date: Fri, 26 Feb 2016 22:20:33 +0100 Subject: RunProgram: remove warning --- lib/ManaTools/Shared/RunProgram.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/ManaTools') diff --git a/lib/ManaTools/Shared/RunProgram.pm b/lib/ManaTools/Shared/RunProgram.pm index 042f5594..dc8c1fe4 100644 --- a/lib/ManaTools/Shared/RunProgram.pm +++ b/lib/ManaTools/Shared/RunProgram.pm @@ -206,8 +206,8 @@ sub raw { my $real_name = ref($name) ? $name->[0] : $name; my ($stdout_raw, $stdout_mode, $stderr_raw, $stderr_mode); - ($stdout_mode, $stdout_raw, @args) = @args if $args[0] =~ /^>>?$/; - ($stderr_mode, $stderr_raw, @args) = @args if $args[0] =~ /^2>>?$/; + ($stdout_mode, $stdout_raw, @args) = @args if scalar(@args) >= 2 && $args[0] =~ /^>>?$/; + ($stderr_mode, $stderr_raw, @args) = @args if scalar(@args) >= 2 && $args[0] =~ /^2>>?$/; my $home; if ($options->{as_user}) { -- cgit v1.2.1