develooper Front page | perl.perl5.porters | Postings from October 2007

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

From:
Chun Bing Ge
Date:
October 23, 2007 22:40
Subject:
lib/Pod/Simple/t/search12.t failed on EBCDIC platform
Message ID:
OF07CE93A2.FAAE0DA5-ON4825737E.001EA045-4825737E.001F1BF9@IBMCN
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|squaa|squaa::Glunk|squaa::Vliff|zikzik|Blorm|Zonk::Pronk";
+} else {
 ok $names, 
"Blorm|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Vliff|perlflif|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|squaa|squaa::Glunk|squaa::Vliff|zikzik|Blorm|Zonk::Pronk";
+} else {
 ok $names, 
"Blorm|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Vliff|perlflif|perlthng|squaa|squaa::Glunk|squaa::Vliff|zikzik";
 }
+}
 
 ok( ($name2where->{'squaa'} || 'huh???'), '/squaa\.pm$/');
 



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



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About