.

tests/join/build-script

@@ -1,4 +1,4 @@
-#!/p/bin/perl5.000 -w
+#!/usr/bin/perl -w
 
 $join = 'join';
 $join = '/usr/bin/join';

tests/join/test.data.pl

@@ -47,3 +47,6 @@
 
 ('8a', '-a1 -e . -o 0,1.2',  "a\nb\nc\nd G\n", "a x y\nb\nc\ne\n", "a .\nb .\nc .\nd G\n", 0);
 ('8b', '-a1 -a2 -e . -o 0,1.2',  "a\nb\nc\nd G\n", "a x y\nb\nc\ne\n", "a .\nb .\nc .\nd G\ne .\n", 0);
+
+# From David Dyck
+('9a', '',  " a 1\n b 2\n", " a Y\n b Z\n", "a 1 Y\nb 2 Z\n", 0);