X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=appendix-a6.git;a=blobdiff_plain;f=spi2loose;h=89a6a675d0f4378f58313200ac04263d051ce72e;hp=996550277fb4023839cc68fbb0628d97898cc604;hb=8e0de3a8a82d07d9428f292a755d15ff3e5996ee;hpb=2ae008ee988080047f9a5576bc6f8a702ced2470

diff --git a/spi2loose b/spi2loose
index 9965502..89a6a67 100755
--- 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 $!;
 }