From 5057e749149e1b5e59d0f2c572c8ad994b11ba06 Mon Sep 17 00:00:00 2001 From: Mason James Date: Wed, 27 Feb 2008 12:34:01 +1300 Subject: [PATCH] more \Q...\E wrapping on regexes, to handle occassionally problematic strings. Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- misc/migration_tools/rebuild_nozebra.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/misc/migration_tools/rebuild_nozebra.pl b/misc/migration_tools/rebuild_nozebra.pl index ab64d5410e..ec71137e03 100755 --- a/misc/migration_tools/rebuild_nozebra.pl +++ b/misc/migration_tools/rebuild_nozebra.pl @@ -133,7 +133,7 @@ while (my ($biblionumber) = $sth->fetchrow) { # check each index to see if the subfield is stored somewhere # otherwise, store it in __RAW__ index foreach my $key (keys %index) { - if ($index{$key} =~ /$tag\*/ or $index{$key} =~ /$tag$subfieldcode/) { + if ($index{$key} =~ /\Q$tag\E\*/ or $index{$key} =~ /\Q$tag$subfieldcode\E/) { $indexed=1; my $line= lc $subfield->[1]; # remove meaningless value in the field... -- 2.39.5