parts/inc/misc: Remove extraneous ord() calls

[perl5.git] / dist / Devel-PPPort / t / misc.t

diff --git a/dist/Devel-PPPort/t/misc.t b/dist/Devel-PPPort/t/misc.t
index 1a80954..223f7f9 100644 (file)
--- a/dist/Devel-PPPort/t/misc.t
+++ b/dist/Devel-PPPort/t/misc.t
@@ -168,8 +168,8 @@ ok(  Devel::PPPort::isUPPER_A(ord("Z")));
 
 # One of these two is uppercase in EBCDIC; the other in Latin1, but neither are
 # ASCII uppercase.
-ok(! Devel::PPPort::isUPPER_A(ord(0xDC)));
-ok(! Devel::PPPort::isUPPER_A(ord(0xFC)));
+ok(! Devel::PPPort::isUPPER_A(0xDC));
+ok(! Devel::PPPort::isUPPER_A(0xFC));
 
 ok(  Devel::PPPort::isLOWER(ord("b")));
 ok(! Devel::PPPort::isLOWER(ord("B")));
@@ -178,8 +178,8 @@ ok(  Devel::PPPort::isLOWER_A(ord("y")));
 
 # One of these two is lowercase in EBCDIC; the other in Latin1, but neither are
 # ASCII lowercase.
-ok(! Devel::PPPort::isLOWER_A(ord(0xDC)));
-ok(! Devel::PPPort::isLOWER_A(ord(0xFC)));
+ok(! Devel::PPPort::isLOWER_A(0xDC));
+ok(! Devel::PPPort::isLOWER_A(0xFC));
 
 ok(  Devel::PPPort::isALPHA(ord("C")));
 ok(! Devel::PPPort::isALPHA(ord("1")));