ensure that empty indicators are used
authorDobrica Pavlinusic <dpavlin@rot13.org>
Tue, 29 Mar 2016 11:34:04 +0000 (13:34 +0200)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Tue, 29 Mar 2016 11:35:16 +0000 (13:35 +0200)
Aleph.pm

index 99c054d..448beaa 100644 (file)
--- a/Aleph.pm
+++ b/Aleph.pm
@@ -173,6 +173,8 @@ warn "## ++ ", dump( $f, $v );
 
                        my ($i1,$i2) = (' ',' ');
                        ($i1,$i2) = ($2,$3) if $f =~ s/^(...)(.)?(.)?/$1/;
+                       $i1 ||= ' ';
+                       $i2 ||= ' ';
                        my @sf = split(/\|/, $v);
                        @sf = map { s/^(\w)\s+//; { $1 => $_ } } @sf;
 #warn "## sf = ", dump(@sf);