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