sub print_rows {
my $self = shift;
my %moderows = (
- -DEFAULT => !@_ ? '' : split(/(?:\s*([^=\s]*)=\s*)/, shift),
+ -DEFAULT => !!@_ && $_[0] ne '' && split(/(?:\s*([^=\s]*)=\s*)/, shift),
# plus specific mode overrides prefixed by '='
);
my $defrows = shift || [2, 1, 0];