summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/diskdrake
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-03-30 23:25:44 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-03-30 23:25:44 +0000
commit75bcbea29b0dba1954344cc78b9ecb75e5007bfa (patch)
tree83d0669e2cdcb66caceb134e88f05179c99a6b55 /perl-install/standalone/diskdrake
parent0ed09587c155ff3297d723d038a9e3016d1d599e (diff)
downloaddrakx-75bcbea29b0dba1954344cc78b9ecb75e5007bfa.tar
drakx-75bcbea29b0dba1954344cc78b9ecb75e5007bfa.tar.gz
drakx-75bcbea29b0dba1954344cc78b9ecb75e5007bfa.tar.bz2
drakx-75bcbea29b0dba1954344cc78b9ecb75e5007bfa.tar.xz
drakx-75bcbea29b0dba1954344cc78b9ecb75e5007bfa.zip
no_comment
Diffstat (limited to 'perl-install/standalone/diskdrake')
-rwxr-xr-xperl-install/standalone/diskdrake4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/standalone/diskdrake b/perl-install/standalone/diskdrake
index 242f07c6d..6696f29f4 100755
--- a/perl-install/standalone/diskdrake
+++ b/perl-install/standalone/diskdrake
@@ -22,7 +22,7 @@
# DiskDrake is also based upon the libfdisk and the install from Red Hat Software
-use lib "."; #qw(/usr/lib/libDrakX);
+use lib qw(/usr/lib/libDrakX);
use common qw(:common :functional);
use diskdrake;
use interactive_gtk;
@@ -62,7 +62,7 @@ my $hds =
I'll try to go on blanking bad partitions"), $err]);
};
-$SIG{__DIE__} = sub { chomp $_[0]; log::l("ERROR: $_[0]") };
+$SIG{__DIE__} = sub { chomp (my $m = $_[0]); log::l("ERROR: $m") };
my $fstab = [ fsedit::get_fstab(@$hds) ];
fs::get_mntpoints_from_fstab($fstab);