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 <[email protected]> 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 _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
