X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/e1226a3e4cfb3b6d3b58db0abb7919a6a736fb55..ec70841119a49ebeed4e14ce682f29d15e1ed27d:/Shiar_Sheet/Keyboard.pm diff --git a/Shiar_Sheet/Keyboard.pm b/Shiar_Sheet/Keyboard.pm index 90ec4e8..2b3cc86 100644 --- a/Shiar_Sheet/Keyboard.pm +++ b/Shiar_Sheet/Keyboard.pm @@ -126,7 +126,7 @@ sub print_key { 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];