[perl.git] branch blead, updated. v5.17.5-78-g5403a9a

[Craig A. Berry]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/5403a9a2060725249a432362f046adec5542d269?hp=97e916ed683ce1dd68d3c930724281ece2649ebb>

- Log -----------------------------------------------------------------
commit 5403a9a2060725249a432362f046adec5542d269
Author: Craig A. Berry <craig...@mac.com>
Date: Sat Oct 27 07:53:10 2012 -0500

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.
-----------------------------------------------------------------------

Summary of changes:
t/TEST | 4 ++--
1 files 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 = <RESULTS>;
+ my $l2 = <$results>;
if ($l2 =~ /^\s*$/) {
- $l2 = <RESULTS>;
+ $l2 = <$results>;
}
$_ = '1..' . $l2;
}

--
Perl5 Master Repository