[libcatmandu-marc-perl] 146/208: subspec comparison failed

[Jonas Smedegaard]

This is an automated email from the git hooks/post-receive script.

js pushed a commit to annotated tag upstream/1.19
in repository libcatmandu-marc-perl.

commit d2da62a3bb6b6ecfdf8d32cc194f4acf0cfdf26d
Author: Carsten Klee <cKlee at users.noreply.github.com>
Date:   Tue Jun 13 13:36:40 2017 +0200

    subspec comparison failed
---
 lib/Catmandu/MARC.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/lib/Catmandu/MARC.pm b/lib/Catmandu/MARC.pm
index 1ba5cea..44bb8d4 100644
--- a/lib/Catmandu/MARC.pm
+++ b/lib/Catmandu/MARC.pm
@@ -13,7 +13,6 @@ with 'MooX::Singleton';
 
 memoize('compile_marc_path');
 memoize('parse_marc_spec');
-memoize('_it_subspecs');
 memoize('_get_index_range');
 
 our $VERSION = '1.10';
@@ -688,13 +687,13 @@ sub _validate_subspec {
 
     if($subspec->operator eq '~') {
         foreach my $v ( @{$left_subterm->[0]} ) {
-            return 1 if List::Util::any {$v =~ m?$_?} @{$right_subterm}
+            return 1 if List::Util::any {$v =~ /$_/} @{$right_subterm}
         }
     }
 
     if($subspec->operator eq '!~') {
         foreach my $v ( @{$left_subterm->[0]} ) {
-            return 0 if List::Util::any {$v =~ m?$_?} @{$right_subterm}
+            return 0 if List::Util::any {$v =~ /$_/} @{$right_subterm}
         }
         return 1
     }

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcatmandu-marc-perl.git