Fix use of non-existent bareword filehandle in t/TEST.

The refactoring done in 84650816efdc42d6 was incomplete and left
a couple of VMS-specific instances of RESULT while replacing all
other occurrences with $result.

Spotted by Jim Cromie.

diff --git a/t/TEST b/t/TEST
index 82e8378..b2df1fe 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -586,9 +586,9 @@ EOT
            next if /^\s*$/; # skip blank lines
            if (/^1..$/ && ($^O eq 'VMS')) {
                # VMS pipe bug inserts blank lines.
-               my $l2 = <RESULTS>;
+               my $l2 = <$results>;
                if ($l2 =~ /^\s*$/) {
-                   $l2 = <RESULTS>;
+                   $l2 = <$results>;
                }
                $_ = '1..' . $l2;
            }