diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2005-09-16 13:41:48 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2005-09-16 13:41:48 +0000 |
commit | 174aabbfff4a5554bc1c286a2b873f7f2e1169f4 (patch) | |
tree | 41019988195bc0c671f8d3a0c0b212dc023969fe /perl-install/fs | |
parent | 0ae8ca52f332b86b6c91c50cec5fc2fade83c32d (diff) | |
download | drakx-174aabbfff4a5554bc1c286a2b873f7f2e1169f4.tar drakx-174aabbfff4a5554bc1c286a2b873f7f2e1169f4.tar.gz drakx-174aabbfff4a5554bc1c286a2b873f7f2e1169f4.tar.bz2 drakx-174aabbfff4a5554bc1c286a2b873f7f2e1169f4.tar.xz drakx-174aabbfff4a5554bc1c286a2b873f7f2e1169f4.zip |
fix typo
Diffstat (limited to 'perl-install/fs')
-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 |