chiark / gitweb /
permit empty comments
authorian <ian>
Tue, 6 Dec 2005 23:30:34 +0000 (23:30 +0000)
committerian <ian>
Tue, 6 Dec 2005 23:30:34 +0000 (23:30 +0000)
cebpic/morse-generator

index ebf0830fc64595973e5a87f1b8d9ad92196d5afe..085ab4f61848e132f944a403b183f396a0db3a5a 100755 (executable)
@@ -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;