diff options
| -rw-r--r-- | lib/ManaTools/Shared/RunProgram.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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}) { |