29 lines
913 B
Text
29 lines
913 B
Text
- Fix path to help file.
|
|
- Pass a list to erasechar.
|
|
|
|
Currently hitting one of the erase buttons causes HASHBLBLBALBALBA
|
|
to be printed. This fixes the issue.
|
|
|
|
Upstream commit 9cdde76546af7eaab54292df3a336b9b489a69e3.
|
|
|
|
Index: cadubi
|
|
--- cadubi.orig
|
|
+++ cadubi
|
|
@@ -12,7 +12,7 @@ $VERSION = '1.3.4';
|
|
# (sorry guys, i wrote this years before i had the remotest clue as to
|
|
# what the hell i was doing)
|
|
use FindBin qw($Bin);
|
|
-$HELPFILE = "$Bin/help.txt";
|
|
+$HELPFILE = "$Bin/../share/doc/cadubi/help.txt";
|
|
|
|
# other stuff
|
|
$DEBUG = 0;
|
|
@@ -345,7 +345,7 @@ sub paintchar { # prints the char on screen and saves
|
|
|
|
sub erasechar { # saves blank char to $charmap, prints
|
|
$charmap->[$pos[0]][$pos[1]] = undef;
|
|
- print &printchar({$charmap->[$pos[0]][$pos[1]]});
|
|
+ print &printchar(($charmap->[$pos[0]][$pos[1]]));
|
|
&curs_move(@pos); #print moves to the right on us, without asking. the nerve!
|
|
}
|
|
|