This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
8f85205
)
charnames.t: Test that can have string "0x..."
author
Karl Williamson
<khw@khw-desktop.(none)>
Sun, 11 Jul 2010 17:44:46 +0000
(11:44 -0600)
committer
Karl Williamson
<khw@khw-desktop.(none)>
Tue, 13 Jul 2010 23:12:33 +0000
(17:12 -0600)
The form "0x..." is supposed to evaluate as if it weren't a string.
Make sure that is tested
lib/charnames.t
patch
|
blob
|
blame
|
history
diff --git
a/lib/charnames.t
b/lib/charnames.t
index
5be1c47
..
485926d
100644
(file)
--- a/
lib/charnames.t
+++ b/
lib/charnames.t
@@
-52,7
+52,7
@@
EOE
{
- use charnames ':full', ":alias" => { mychar1 =>
0xE8000
,
+ use charnames ':full', ":alias" => { mychar1 =>
"0xE8000"
,
mychar2 => 983040, # U+F0000
mychar3 => "U+100000",
myctrl => 0x80,