find_psl_file: fix duplicate share in path

fixes #231
msimerson · Mar 21, 2024 · d11201d · d11201d
1 parent ac6d3ad
commit d11201d
Showing 1 changed file with 6 additions and 7 deletions.
diff --git a/lib/Mail/DMARC/Base.pm b/lib/Mail/DMARC/Base.pm
@@ -194,14 +194,13 @@ sub find_psl_file {
         print "using $file for Public Suffix List\n" if $self->verbose;
         return $file;
     }
-    my $path;
-    foreach $path ($self->get_prefix('share/' . $file)) {    ## no critic
-        last if ( -f $path && -r $path );
+
+    foreach my $path ($self->get_prefix($file)) {
+        if ( -f $path && -r $path ) {
+            print "using $path for Public Suffix List\n"; # if $self->verbose;
+            return $path;
+        }
     }
-    if ($path && -r $path) {
-        print "using $path for Public Suffix List\n" if $self->verbose;
-        return $path;
-    };
 
     # Fallback to included suffic list
     return $self->get_sharefile('public_suffix_list');