diff options
author | Karl Williamson <khw@cpan.org> | 2014-10-17 23:27:24 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2014-10-21 09:26:51 -0600 |
commit | 502bdc0fe4cdbb3e2e0b49893a622431a77ce409 (patch) | |
tree | 897802202b056379d95e76d47b61f0eddf2a073e /t/uni | |
parent | 048c5953b72547aea9b36024cb01c8605a016cca (diff) | |
download | perl-502bdc0fe4cdbb3e2e0b49893a622431a77ce409.tar.gz |
t/uni/variables.t: Rename variable
A future commit will be using the current variable name for a different
purpose.
Diffstat (limited to 't/uni')
-rw-r--r-- | t/uni/variables.t | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/t/uni/variables.t b/t/uni/variables.t index 127bd34641..c7c2a275ee 100644 --- a/t/uni/variables.t +++ b/t/uni/variables.t @@ -121,16 +121,16 @@ for ( 0x80..0xff ) { } { use utf8; - my $u = $chr; - utf8::upgrade($u); + my $utf8 = $chr; + utf8::upgrade($utf8); local $@; - eval "no strict; \$$u = 1"; + eval "no strict; \$$utf8 = 1"; is($@, '', " ... and under 'use utf8', 'no strict', is a valid length-1 variable"); local $@; - eval "use strict; \$$u = 1"; + eval "use strict; \$$utf8 = 1"; like($@, - qr/Global symbol "\$$u" requires explicit package name/, + qr/Global symbol "\$$utf8" requires explicit package name/, " ... and under utf8 has to be required under strict" ); } |