Reduce noise from perl_checker.

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(' ' , $_);