From 174aabbfff4a5554bc1c286a2b873f7f2e1169f4 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 16 Sep 2005 13:41:48 +0000
Subject: fix typo

---
 perl-install/fs/dmraid.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'perl-install/fs/dmraid.pm')

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
-- 
cgit v1.2.1