From 0be531833b95668e3022bae25ffcf684a50f781d Mon Sep 17 00:00:00 2001
From: Julian Maurice <julian.maurice@biblibre.com>
Date: Wed, 30 Sep 2015 15:03:35 +0200
Subject: [PATCH] Bug 7419: Allow wildcards in tagspec

Options --match and --check can now contains tagspec like "2.."
---
 misc/migration_tools/dedup_records.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/misc/migration_tools/dedup_records.pl b/misc/migration_tools/dedup_records.pl
index 2a6c38b..bc95fa5 100755
--- a/misc/migration_tools/dedup_records.pl
+++ b/misc/migration_tools/dedup_records.pl
@@ -266,13 +266,13 @@ if ( $match =~ m#/# ) {
     $matcher->threshold( 1000 * scalar(@matchers) - 1 );
     $matcher->code('TEMP');
     $matcher->description('Temporary matcher for deduplication run');
-    while ( $matchers[ $cnt ] && $matchers[ $cnt++ ] =~ m#^([^/]+)/([0-9]{3})(.*)$# ) {
+    while ( $matchers[ $cnt ] && $matchers[ $cnt++ ] =~ m#^([^/]+)/([0-9][0-9\.]{2})(.*)$# ) {
         $matcher->add_simple_matchpoint( $1, 1000, $2, $3, 0, 0, '' );
     }
     $check ||= '';
     my @checks = split( ',', $check );
     $cnt = 0;
-    while ( $checks[ $cnt ] && $checks[ $cnt++ ] =~ m#^([0-9]{3})(.*)$# ) {
+    while ( $checks[ $cnt ] && $checks[ $cnt++ ] =~ m#^([0-9][0-9\.]{2})(.*)$# ) {
         $matcher->add_simple_required_check( $1, $2, 0, 0, '', $1, $2, 0, 0, '' );
     }
 }
-- 
1.9.1