Skip to content

Commit 0a69975

Browse files
authored
morse: bad encoding (briandfoy#950)
* Fix incorrect encoding for symbol '(', found during testing * Add encodings for symbols '@' and '_' (sync from NetBSD) [1] 1. https://github.com/NetBSD/src/blob/trunk/games/morse/morse.c ``` %perl morse -s '()' # previous identical encoding -.--.- -.--.- ```
1 parent dffaed3 commit 0a69975

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

bin/morse

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -30,9 +30,9 @@ my %chartab = (
3030
w => '.--', x => '-..-', y => '-.--', z => '--..',
3131

3232
'.' => '.-.-.-', ',' => '--..--', ':' => '---...', '?' => '..--..',
33-
"'" => '.----.', '-' => '-....-', '/' => '-..-.', '(' => '-.--.-',
33+
"'" => '.----.', '-' => '-....-', '/' => '-..-.', '(' => '-.--.',
3434
')' => '-.--.-', '"' => '.-..-.', '=' => '-...-', ';' => '-.-.-.',
35-
'+' => '.-.-.',
35+
'+' => '.-.-.', '@' => '.--.-.', '_' => '..--.-',
3636
);
3737
my %translations = reverse %chartab;
3838

0 commit comments

Comments
 (0)