From: Craig A. Berry <craigberry@mac.com>
Date: Sat, 27 Oct 2012 12:53:10 +0000 (-0500)
Subject: Fix use of non-existent bareword filehandle in t/TEST.
X-Git-Tag: upstream/5.20.0~5015
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=5403a9a2060725249a432362f046adec5542d269;p=platform%2Fupstream%2Fperl.git

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
--- 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;
 	    }