diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-12-04 09:53:55 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-12-04 10:51:22 -0800 |
| commit | 90b58ec9e4b2574a8f7f11a0215f42453cfbc0a1 (patch) | |
| tree | 060d70e0675340b11c84a2743634ec97e14bfa6b /cpan/Text-Tabs | |
| parent | 668a86254af1576eb43991facafcf3693c919b3f (diff) | |
| download | perl-90b58ec9e4b2574a8f7f11a0215f42453cfbc0a1.tar.gz | |
Deprecate lexical $_
See tickets #114020 and #75598 for why.
The changes to tests in cpan/Text-Tabs have been submitted upstream
at rt.cpan.org #81698.
Diffstat (limited to 'cpan/Text-Tabs')
| -rw-r--r-- | cpan/Text-Tabs/t/Tabs-ElCid.t | 3 | ||||
| -rw-r--r-- | cpan/Text-Tabs/t/Wrap-JLB.t | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/cpan/Text-Tabs/t/Tabs-ElCid.t b/cpan/Text-Tabs/t/Tabs-ElCid.t index 4208d515cd..32572e7661 100644 --- a/cpan/Text-Tabs/t/Tabs-ElCid.t +++ b/cpan/Text-Tabs/t/Tabs-ElCid.t @@ -105,8 +105,9 @@ sub check($$$$) { sub check_data { + local $_; binmode(DATA, ":utf8") || die "can't binmode DATA to utf8: $!"; - while ( my $_ = <DATA> ) { + while ( <DATA> ) { my $bad = 0; diff --git a/cpan/Text-Tabs/t/Wrap-JLB.t b/cpan/Text-Tabs/t/Wrap-JLB.t index 2c403799a3..67163e2a70 100644 --- a/cpan/Text-Tabs/t/Wrap-JLB.t +++ b/cpan/Text-Tabs/t/Wrap-JLB.t @@ -87,7 +87,8 @@ sub check($$$$) { sub check_data { binmode(DATA, ":utf8") || die "can't binmode DATA to utf8: $!"; - while ( my $_ = <DATA> ) { + local $_; + while ( <DATA> ) { my $bad = 0; |