Use test_vector, not array @t.

1 files changed, 7 insertions, 3 deletions

diff --git a/tests/join/Test.pm b/tests/join/Test.pm
index 80bde167c..381c40ccd 100644
--- a/tests/join/Test.pm
+++ b/tests/join/Test.pm
@@ -2,7 +2,7 @@ package Test;
 require 5.002;
 use strict;
 
-@Test::t = (
+my @tv = (
 # test name
 #     flags       file-1 file-2    expected output   expected return code
 #
@@ -90,8 +90,12 @@ use strict;
  "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],
+['9a', '', [" a 1\n b 2\n", " a Y\n b Z\n"], "a 1 Y\nb 2 Z\n", 0],
 );
 
+sub test_vector
+{
+  return @tv;
+}
+
 1;