From: Karl Williamson <public@khwilliamson.com>
Date: Mon, 18 Mar 2013 03:42:20 +0000 (-0600)
Subject: t/test.pl: Add comment about EBCDIC
X-Git-Tag: upstream/5.20.0~2089^2~23
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=4937f588b80a1b766e4edd8d2f246e3b72ffb7b8;p=platform%2Fupstream%2Fperl.git

t/test.pl: Add comment about EBCDIC
---

diff --git a/t/test.pl b/t/test.pl
index 6de0dd4..c452c38 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -284,7 +284,9 @@ sub display {
                     if ($z =~ /[[:^print:]]/) {
 
                         # Use octal for characters traditionally expressed as
-                        # such: the low controls
+                        # such: the low controls, which on EBCDIC aren't
+                        # necessarily the same ones as on ASCII platforms, but
+                        # are small ordinals, nonetheless
                         if ($c <= 037) {
                             $z = sprintf "\\%03o", $c;
                         } else {