Eliminate $::ordA from ReTest.pl, inlining its constant value in its only user.

diff --git a/t/re/ReTest.pl b/t/re/ReTest.pl
index 22a042f..1bb3bfa 100644 (file)
--- a/t/re/ReTest.pl
+++ b/t/re/ReTest.pl
@@ -10,12 +10,11 @@ use Carp;
 use vars qw(
     $IS_ASCII
     $IS_EBCDIC
-    $ordA
 );
 
 $| = 1;
 
-our $ordA = ord ('A');  # This defines ASCII/UTF-8 vs EBCDIC/UTF-EBCDIC
+my $ordA = ord ('A');  # This defines ASCII/UTF-8 vs EBCDIC/UTF-EBCDIC
 # This defined the platform.
 our $IS_ASCII  = $ordA ==  65;
 our $IS_EBCDIC = $ordA == 193;

diff --git a/t/re/pat_advanced.t b/t/re/pat_advanced.t
index 0a3a6fb..7775cd1 100644 (file)
--- a/t/re/pat_advanced.t
+++ b/t/re/pat_advanced.t
@@ -46,7 +46,7 @@ sub run_tests {
         }
         else {
             SKIP: {
-                ok 0, "Unexpected platform", "ord ('A') = $ordA";
+                ok 0, "Unexpected platform", "ord ('A') =" . ord 'A';
                 skip "Unexpected platform";
             }
         }
@@ -64,7 +64,7 @@ sub run_tests {
             is($1, "\x8C", $message);
         }
         else {
-            ok 0, "Unexpected platform", "ord ('A') = $ordA";
+            ok 0, "Unexpected platform", "ord ('A') = " . ord 'A';
         }
         ok(/(\C)/g, $message);
         if ($IS_ASCII) {
@@ -74,7 +74,7 @@ sub run_tests {
             is($1, "\x41", $message);
         }
         else {
-            ok 0, "Unexpected platform", "ord ('A') = $ordA";
+            ok 0, "Unexpected platform", "ord ('A') = " . ord 'A';
         }
     }