From 5403a9a2060725249a432362f046adec5542d269 Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Sat, 27 Oct 2012 07:53:10 -0500 Subject: [PATCH] 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. --- t/TEST | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 = ; + my $l2 = <$results>; if ($l2 =~ /^\s*$/) { - $l2 = ; + $l2 = <$results>; } $_ = '1..' . $l2; } -- 2.7.4