lib/Module/Build/t/mbyaml.t failed on EBCDIC platform

Hi,

Here is the patch below. Any question, pls let me know,
thanks.


---
/home/spring/perl/perl-current/lib/Module/Build/t/mbyaml.t 
2006-07-06 
23:40:11.000000000 +0800
+++ /home/spring/patch/chgfile/lib-Module-Build-t-mbyaml.t  
   2007-09-10 
10:53:53.000000000 +0800
 -117,7
+117,24 
         [ "pi", "is", 3.1416 ],
         { fun => "under_sun", 6 => undef,
"more", undef },
     ];
-    $expected = <<'EOF';
+    if (ord("A") == 193) {
+        $expected = <<'EOF';
+---
+e
+---
+2.71828
+---
+- pi
+- is
+- 3.1416
+---
+fun: under_sun
+more: ~
+6: ~
+EOF
+    }
+    else {
+        $expected = <<'EOF';
 ---
 e
 ---
 -131,13
+148,30 
 fun: under_sun
 more: ~
 EOF
+    }
     $got = &Module::Build::YAML:ump($var);
     is($got, $expected, "Dump(): multiple,
various");
 
    
##########################################################
     # Test that a single array ref turns into one document
    
##########################################################
-    $expected = <<'EOF';
+    if (ord("A") == 193) {
+        $expected = <<'EOF';
+---
+- e
+- 2.71828
+-
+  - pi
+  - is
+  - 3.1416
+-
+  fun: under_sun
+  more: ~
+  6: ~
+EOF
+    }
+    else {
+        $expected = <<'EOF';
 ---
 - e
 - 2.71828
 -150,6
+184,7 
   fun: under_sun
   more: ~
 EOF
+    }
     $got = &Module::Build::YAML:ump($var
);
     is($got, $expected, "Dump(): single array of
various");
 





Ge, Chun Bing
空山新雨后，天气晚来秋