normalise: pass $ctx to normalise_opts

[appendix-a6.git] / spi2loose

diff --git a/spi2loose b/spi2loose
index 996550277fb4023839cc68fbb0628d97898cc604..89a6a675d0f4378f58313200ac04263d051ce72e 100755 (executable)
--- a/spi2loose
+++ b/spi2loose
@@ -1,8 +1,8 @@
 #!/usr/bin/perl -w
 use strict;
 while (<>) {
-      m/^(\w+) (\w+)$/ or die "$_ ?";
-      print "$1 : ".(join " ", split //, $2)."\n" or die $!;
+      m/^(\w+)(?:\s+(\w+))?$/ or die "$_ ?";
+      print "$1 : ".(join " ", split //, ($2 // ''))."\n" or die $!;
 }