From 0be531833b95668e3022bae25ffcf684a50f781d Mon Sep 17 00:00:00 2001 From: Julian Maurice 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