problems in ext/Storable/t/file_magic.t on EBCDIC platform

Message-Id: <OF9205F187.AEDD9A24-ON4825732C.0021701B-4825732C.002279E4@IBMCN>

p4raw-id: //depot/perl@31678

diff --git a/ext/Storable/t/file_magic.t b/ext/Storable/t/file_magic.t
index f5606c5..f834510 100644 (file)
--- a/ext/Storable/t/file_magic.t
+++ b/ext/Storable/t/file_magic.t
@@ -120,7 +120,7 @@ my @tests = (
         },
     ],
     [
-        "pst0\4\4\x041234\4\4\4\b\3\13\0\0\0\1\0\4\0\0\0\0\0\0\0\0\0...",
+        "pst0\4\4\x041234\4\4\4\x08\3\13\0\0\0\1\0\4\0\0\0\0\0\0\0\0\0...",
         {
           byteorder  => 1234,
           file       => "data_perl-5.006001_i686-linux-thread-multi_Storable-1.012.le32",
@@ -137,7 +137,7 @@ my @tests = (
         },
     ],
     [
-        "pst0\4\3\x044321\4\4\4\b\3\0\0\0\13\1\0\0\4\0\0\0\0\0\0\0\0...",
+        "pst0\4\3\x044321\4\4\4\x08\3\0\0\0\13\1\0\0\4\0\0\0\0\0\0\0\0...",
         {
           byteorder  => 4321,
           file       => "data_perl-5.006001_IA64.ARCHREV_0-thread-multi_Storable-1.006.be32",
@@ -166,7 +166,7 @@ my @tests = (
         },
     ],
     [
-        "pst0\4\4\x044321\4\4\4\b\3\0\0\0\13\1\0\0\4\0\0\0\0\0\0\0\0...",
+        "pst0\4\4\x044321\4\4\4\x08\3\0\0\0\13\1\0\0\4\0\0\0\0\0\0\0\0...",
         {
           byteorder  => 4321,
           file       => "data_perl-5.006001_IA64.ARCHREV_0-thread-multi_Storable-1.012.be32",
@@ -195,7 +195,7 @@ my @tests = (
         },
     ],
     [
-        "pst0\4\6\x044321\4\4\4\b\3\0\0\0\13\n\n4294967296...",
+        "pst0\4\6\x044321\4\4\4\x08\3\0\0\0\13\n\n4294967296...",
         {
           byteorder  => 4321,
           file       => "data_perl-5.008001_darwin-thread-multi-2level_Storable-2.08.be32",
@@ -224,7 +224,7 @@ my @tests = (
         },
     ],
     [
-        "pst0\4\6\x044321\4\4\4\b\3\0\0\0\13\4\3\0\0\0\0\0\0\0\nem...",
+        "pst0\4\6\x044321\4\4\4\x08\3\0\0\0\13\4\3\0\0\0\0\0\0\0\nem...",
         {
           byteorder  => 4321,
           file       => "data_perl-5.008003_PA-RISC1.1-thread-multi_Storable-2.09.be32",
@@ -253,7 +253,7 @@ my @tests = (
         },
     ],
     [
-        "pst0\4\6\b12345678\4\4\4\b\3\13\0\0\0\4\3\0\0\0\0\n\0...",
+        "pst0\4\6\x0812345678\4\4\4\x08\3\13\0\0\0\4\3\0\0\0\0\n\0...",
         {
           byteorder  => 12_345_678,
           file       => "data_perl-5.008004_i86pc-solaris-64int_Storable-2.12.le64",
@@ -270,7 +270,7 @@ my @tests = (
         },
     ],
     [
-        "pst0\4\6\x041234\4\4\4\b\3\13\0\0\0\4\3\0\0\0\0\n\0\0\0em...",
+        "pst0\4\6\x041234\4\4\4\x08\3\13\0\0\0\4\3\0\0\0\0\n\0\0\0em...",
         {
           byteorder  => 1234,
           file       => "data_perl-5.008006_i686-linux-thread-multi_Storable-2.13.le32",
@@ -287,7 +287,7 @@ my @tests = (
         },
     ],
     [
-        "pst0\4\6\b87654321\4\b\b\b\3\0\0\0\13\4\3\0\0\0\0\0\0...",
+        "pst0\4\6\x0887654321\4\x08\x08\x08\3\0\0\0\13\4\3\0\0\0\0\0\0...",
         {
           byteorder  => 87_654_321,
           file       => "data_perl-5.008007_IA64.ARCHREV_0-thread-multi-LP64_Storable-2.13.be64",
@@ -304,7 +304,7 @@ my @tests = (
         },
     ],
     [
-        "pst0\4\a\b12345678\4\b\b\b\3\13\0\0\0\4\3\0\0\0\0\n\0...",
+        "pst0\4\x07\x0812345678\4\x08\x08\x08\3\13\0\0\0\4\3\0\0\0\0\n\0...",
         {
           byteorder  => 12_345_678,
           file       => "data_perl-5.008007_x86-solaris-thread-multi-64_Storable-2.15.le64",
@@ -321,7 +321,7 @@ my @tests = (
         },
     ],
     [
-        "pst0\5\a\3\0\0\0\13\4\3\0\0\0\0\0\0\0\nempty_hash\n...",
+        "pst0\5\x07\3\0\0\0\13\4\3\0\0\0\0\0\0\0\nempty_hash\n...",
         {
           file       => "data_perl-5.008007_x86-solaris-thread-multi-64_Storable-2.15.neutral",
           hdrsize    => 6,
@@ -333,7 +333,7 @@ my @tests = (
         },
     ],
     [
-        "pst0\4\5\x041234\4\4\4\b\3\13\0\0\0\4\3\0\0\0\0\n\0\0\0em...",
+        "pst0\4\5\x041234\4\4\4\x08\3\13\0\0\0\4\3\0\0\0\0\n\0\0\0em...",
         {
           byteorder  => 1234,
           file       => "data_perl-5.008_i686-linux-thread-multi_Storable-2.04.le32",
@@ -362,7 +362,7 @@ my @tests = (
         },
     ],
     [
-        "pst0\4\a\x041234\4\4\4\b\3\13\0\0\0\4\3\0\0\0\0\n\0\0\0em...",
+        "pst0\4\x07\x041234\4\4\4\x08\3\13\0\0\0\4\3\0\0\0\0\n\0\0\0em...",
         {
           byteorder  => 1234,
           file       => "data_perl-5.009003_i686-linux_Storable-2.15.le32",