From 7e53518a7d8709998482eef1e9da21ee1a1886a9 Mon Sep 17 00:00:00 2001
From: Martin Whitaker <mageia@martin-whitaker.me.uk>
Date: Sun, 10 Dec 2017 14:56:58 +0000
Subject: Reduce noise from perl_checker.

---
 draklive2 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'draklive2')

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(' ' , $_);
-- 
cgit v1.2.1