@@ -, +, @@ --- misc/migration_tools/dedup_records.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) --- a/misc/migration_tools/dedup_records.pl +++ a/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, '' ); } } --