Merge pull request #6 from perlpunk/master

realpath has to be applied to both local_lib and filename
xaicron · Apr 21, 2022 · 5f7e893 · 5f7e893
2 parents 4efa93d + 72931c4
commit 5f7e893
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lib/App/pmuninstall.pm b/lib/App/pmuninstall.pm
@@ -310,6 +310,7 @@ sub is_local_lib {
 
     my $local_lib_base = quotemeta File::Spec->catfile(Cwd::realpath($self->{local_lib}));
     $file = File::Spec->catfile($file);
+    $file = Cwd::realpath($file);
 
     return $file =~ /^$local_lib_base/ ? 1 : 0;
 }