diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/fs/dmraid.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/fs/dmraid.pm b/perl-install/fs/dmraid.pm index 9edd2c05b..4b317ef5e 100644 --- a/perl-install/fs/dmraid.pm +++ b/perl-install/fs/dmraid.pm @@ -29,8 +29,8 @@ sub init() { #- call_dmraid is overloaded when debugging, see the end of this file sub call_dmraid { - my ($option) = @_; - run_program::get_stdout('dmraid', $option); + my ($option, @args) = @_; + run_program::get_stdout('dmraid', $option, @args); } sub check { @@ -170,11 +170,11 @@ if ($ENV{DRAKX_DEBUG_DMRAID}) { ); *call_dmraid = sub { - my ($option) = @_; + my ($option, @args) = @_; if (my $s = $debug_data{$ENV{DRAKX_DEBUG_DMRAID}}{$option}) { split("\n", $s); } else { - warn "dmraid @_\n"; + warn "dmraid $option @args\n"; } }; EOF |