summaryrefslogtreecommitdiffstats
path: root/perl-install/fs/dmraid.pm
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2014-05-27 22:09:42 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2014-05-27 22:10:55 +0200
commiteaec540f06faea282d3565c722380b2795c5198a (patch)
tree90ae0372fce6d583ecbcea11bc3d1db8c00a6226 /perl-install/fs/dmraid.pm
parent814e172024b8036aa0e5520217e94eafaca86cfb (diff)
downloaddrakx-eaec540f06faea282d3565c722380b2795c5198a.tar
drakx-eaec540f06faea282d3565c722380b2795c5198a.tar.gz
drakx-eaec540f06faea282d3565c722380b2795c5198a.tar.bz2
drakx-eaec540f06faea282d3565c722380b2795c5198a.tar.xz
drakx-eaec540f06faea282d3565c722380b2795c5198a.zip
explain dmraid debugging
Diffstat (limited to 'perl-install/fs/dmraid.pm')
-rw-r--r--perl-install/fs/dmraid.pm12
1 files changed, 8 insertions, 4 deletions
diff --git a/perl-install/fs/dmraid.pm b/perl-install/fs/dmraid.pm
index 21af87e89..378d978fd 100644
--- a/perl-install/fs/dmraid.pm
+++ b/perl-install/fs/dmraid.pm
@@ -172,6 +172,14 @@ sub migrate_device_names {
}
}
+=back
+
+=head1 Debugging
+
+If $ENV{DRAKX_DEBUG_DMRAID} is set, debugging dmraid is done.
+The C<call_dmraid() function is overloaded and will spit out warnings.
+=cut
+
if ($ENV{DRAKX_DEBUG_DMRAID}) {
eval(<<'EOF');
my %debug_data = (
@@ -271,8 +279,4 @@ EOF
$@ and die;
}
-=back
-
-=cut
-
1;