diff --git a/src/tools/DBD/Recordtype.pm b/src/tools/DBD/Recordtype.pm index f730777a3..d0d76a5a0 100644 --- a/src/tools/DBD/Recordtype.pm +++ b/src/tools/DBD/Recordtype.pm @@ -83,7 +83,9 @@ sub toCdefs { } sub equals { - my ($a, $b) = @_; + my ($new, $known) = @_; + return 0 if ! $known->fields; + return 1 if ! $new->fields; dieContext("Duplicate definition of record type '$a->{NAME}'"); }