summaryrefslogtreecommitdiff
path: root/t/uni
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2014-10-17 23:27:24 -0600
committerKarl Williamson <khw@cpan.org>2014-10-21 09:26:51 -0600
commit502bdc0fe4cdbb3e2e0b49893a622431a77ce409 (patch)
tree897802202b056379d95e76d47b61f0eddf2a073e /t/uni
parent048c5953b72547aea9b36024cb01c8605a016cca (diff)
downloadperl-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.t10
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"
);
}