.

diff --git a/tests/join/build-script b/tests/join/build-script
index f31a271..c55cf34 100755 (executable)
--- a/tests/join/build-script
+++ b/tests/join/build-script
@@ -1,4 +1,4 @@
-#!/p/bin/perl5.000 -w
+#!/usr/bin/perl -w
 
 $join = 'join';
 $join = '/usr/bin/join';

diff --git a/tests/join/test.data.pl b/tests/join/test.data.pl
index ed1abd7..77fe078 100755 (executable)
--- a/tests/join/test.data.pl
+++ b/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);