summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMartin Whitaker <mageia@martin-whitaker.me.uk>2017-12-10 14:56:58 +0000
committerMartin Whitaker <mageia@martin-whitaker.me.uk>2017-12-10 14:56:58 +0000
commit7e53518a7d8709998482eef1e9da21ee1a1886a9 (patch)
tree86c218545d2f570bfcccfde4939229f1c5aa4928
parente1e2e7175f03eb4deeffbba15907af145baba626 (diff)
downloaddrakiso-7e53518a7d8709998482eef1e9da21ee1a1886a9.tar
drakiso-7e53518a7d8709998482eef1e9da21ee1a1886a9.tar.gz
drakiso-7e53518a7d8709998482eef1e9da21ee1a1886a9.tar.bz2
drakiso-7e53518a7d8709998482eef1e9da21ee1a1886a9.tar.xz
drakiso-7e53518a7d8709998482eef1e9da21ee1a1886a9.zip
Reduce noise from perl_checker.
-rwxr-xr-xdraklive24
1 files changed, 2 insertions, 2 deletions
diff --git a/draklive2 b/draklive2
index a3c5fb8..bbe6f34 100755
--- a/draklive2
+++ b/draklive2
@@ -28,7 +28,7 @@ use modules;
use run_program;
use Getopt::Long;
use Pod::Usage;
-use Cwd qw(abs_path);
+use Cwd;
use File::Temp;
use File::Copy qw(mv);
use IO::Handle; #- autoflush
@@ -59,7 +59,7 @@ sub mount_system_fs {
sub umount_external_fs {
my ($live) = @_;
- my $system_root = abs_path($live->get_system_root);
+ my $system_root = Cwd::abs_path($live->get_system_root);
my @mounts = grep { $_ =~ $system_root } split("\n", cat_('/proc/mounts'));
foreach (reverse(@mounts)) {
my @field = split(' ' , $_);