@@ -, +, @@ --- installer/data/mysql/atomicupdate/bug_22610.perl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) --- a/installer/data/mysql/atomicupdate/bug_22610.perl +++ a/installer/data/mysql/atomicupdate/bug_22610.perl @@ -40,7 +40,7 @@ if ( CheckVersion($DBversion) ) { accounttype = 'Pay02'; }); - my $sth = $dbh->prepare( qq{SELECT * FROM accountlines WHERE accounttype LIKE "Pay%" AND accounttype != "Pay" } ); + my $sth = $dbh->prepare( qq{SELECT * FROM accountlines WHERE accounttype REGEXP '^Pay[[:digit:]]{2}$' } ); $sth->execute(); my $seen = {}; while (my $row = $sth->fetchrow_hashref) { --