Don't use the anonymous hash reference constructor in t/TEST
Vincent Pit [Tue, 1 Sep 2009 10:57:30 +0000 (12:57 +0200)]
t/TEST

diff --git a/t/TEST b/t/TEST
index f004f9b..6fb6201 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -191,7 +191,7 @@ sub _scan_test {
 
     my $utf8 = $::with_utf8 ? '-I$lib -Mutf8' : '';
 
-    return {
+    my %options = (
        perl => $perl,
        lib => $lib,
        test => $test,
@@ -201,7 +201,9 @@ sub _scan_test {
        utf8 => $utf8,
        file => $file_opts,
        switch => $switch,
-    };
+    );
+
+    return \%options;
 }
 
 sub _cmd {