chiark
/
gitweb
/
~ijackson
/
trains.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
5f89a8f
)
permit empty comments
author
ian
<ian>
Tue, 6 Dec 2005 23:30:34 +0000
(23:30 +0000)
committer
ian
<ian>
Tue, 6 Dec 2005 23:30:34 +0000
(23:30 +0000)
cebpic/morse-generator
patch
|
blob
|
history
diff --git
a/cebpic/morse-generator
b/cebpic/morse-generator
index ebf0830fc64595973e5a87f1b8d9ad92196d5afe..085ab4f61848e132f944a403b183f396a0db3a5a 100755
(executable)
--- a/
cebpic/morse-generator
+++ b/
cebpic/morse-generator
@@
-108,7
+108,7
@@
while (<>) {
s/\#.*//;
next unless m/\S/;
s/\s+$//;
- m/^([A-Z0-9]+)(?:\s+([^\t ;]+))?(?:\s+\;\s
+
(.*))?$/
+ m/^([A-Z0-9]+)(?:\s+([^\t ;]+))?(?:\s+\;\s
*
(.*))?$/
or oops("syntax error");
$morse_name= $1;
@morse= split //, $morse_name;