lib/Pod/Simple/t/search12.t failed on EBCDIC platform

Hi,

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

---
/home/spring/perl/perl-current/lib/Pod/Simple/t/search12.t 
2007-03-23 
09:52:35.000000000 +0800
+++ /home/spring/patch/chgfile/lib-Pod-Simple-t-search12.t  
   2007-09-10 
17:00:30.000000000 +0800
 -61,13
+61,21 
 
 {
 my $names = join "|", sort values %$where2name;
+if (ord("A") == 193) {
+ok $names, 
"hinkhonk::Glunk|hinkhonk::Vliff|perlflif|perlthng|squa
a|squaa::Glunk|squaa::Vliff|zikzik|Blorm|Zonk::Pronk";
+} else {
 ok $names, 
"Blorm|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Vliff|perl
flif|perlthng|squaa|squaa::Glunk|squaa::Vliff|zikzik";
 }
+}
 
 {
 my $names = join "|", sort keys %$name2where;
+if (ord("A") == 193) {
+ok $names, 
"hinkhonk::Glunk|hinkhonk::Vliff|perlflif|perlthng|squa
a|squaa::Glunk|squaa::Vliff|zikzik|Blorm|Zonk::Pronk";
+} else {
 ok $names, 
"Blorm|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Vliff|perl
flif|perlthng|squaa|squaa::Glunk|squaa::Vliff|zikzik";
 }
+}
 
 ok( ($name2where->{'squaa'} || 'huh???'),
'/squaa.pm$/');
 



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