List Info

Thread: lib/Pod/Simple/t/search10.t,search20.t,search22.t,search26.t and search28.t failed on EBCDIC platfor
lib/Pod/Simple/t/search10.t,search20.t,s earch22.t,search26.t and search28.t failed on EBCDIC platfor
user name
 2007-10-24 00:43:28 
Hi,

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

---
/home/spring/perl/perl-current/lib/Pod/Simple/t/search10.t 
2007-03-23 
09:52:35.000000000 +0800
+++ /home/spring/patch/chgfile/lib-Pod-Simple-t-search10.t  
   2007-09-10 
17:00:46.000000000 +0800
 -68,13
+68,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$/');
 


---
/home/spring/perl/perl-current/lib/Pod/Simple/t/search20.t 
2007-03-23 
09:52:35.000000000 +0800
+++ /home/spring/patch/chgfile/lib-Pod-Simple-t-search20.t  
   2007-09-10 
17:05:49.000000000 +0800
 -69,13
+69,21 
 
 {
 my $names = join "|", sort values %$where2name;
+if (ord("A") == 193) {
+ok $names, 
"hinkhonk::Glunk|hinkhonk::Vliff|perlflif|perlthng|perl
zuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Wowo|zikzik|Blorm
|Suzzle|Zonk::Pronk";
+} else {
 ok $names, 
"Blorm|Suzzle|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Vli
ff|perlflif|perlthng|perlzuk|squaa|squaa::Glunk|squaa::Vliff
|squaa::Wowo|zikzik";
 }
+}
 
 {
 my $names = join "|", sort keys %$name2where;
+if (ord("A") == 193) {
+ok $names, 
"hinkhonk::Glunk|hinkhonk::Vliff|perlflif|perlthng|perl
zuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Wowo|zikzik|Blorm
|Suzzle|Zonk::Pronk";
+} else {
 ok $names, 
"Blorm|Suzzle|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Vli
ff|perlflif|perlthng|perlzuk|squaa|squaa::Glunk|squaa::Vliff
|squaa::Wowo|zikzik";
 }
+}
 
 ok( ($name2where->{'squaa'} || 'huh???'),
'/squaa.pm$/');
 



---
/home/spring/perl/perl-current/lib/Pod/Simple/t/search22.t 
2007-03-23 
09:52:35.000000000 +0800
+++ /home/spring/patch/chgfile/lib-Pod-Simple-t-search22.t  
   2007-09-10 
17:09:28.000000000 +0800
 -71,13
+71,21 
 {
 print "# won't show any shadows, since we're just
looking at the 
name2where keysn";
 my $names = join "|", sort keys %$name2where;
+if (ord("A") == 193) {
+ok $names, 
"hinkhonk::Glunk|hinkhonk::Vliff|perlflif|perlthng|perl
zuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Wowo|zikzik|Blorm
|Suzzle|Zonk::Pronk";
+} else {
 ok $names, 
"Blorm|Suzzle|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Vli
ff|perlflif|perlthng|perlzuk|squaa|squaa::Glunk|squaa::Vliff
|squaa::Wowo|zikzik";
 }
+}
 
 {
 print "# but here we'll see shadowing:n";
 my $names = join "|", sort values %$where2name;
+if (ord("A") == 193) {
+ok $names, 
"hinkhonk::Glunk|hinkhonk::Glunk|hinkhonk::Vliff|hinkho
nk::Vliff|perlflif|perlthng|perlthng|perlzuk|squaa|squaa::Gl
unk|squaa::Vliff|squaa::Vliff|squaa::Vliff|squaa::Wowo|zikzi
k|Blorm|Suzzle|Zonk::Pronk";
+} else {
 ok $names, 
"Blorm|Suzzle|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Glu
nk|hinkhonk::Vliff|hinkhonk::Vliff|perlflif|perlthng|perlthn
g|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Vliff|squaa
::Vliff|squaa::Wowo|zikzik";
+}
 
 my %count;
 for(values %$where2name) { ++$count{$_} };



---
/home/spring/perl/perl-current/lib/Pod/Simple/t/search26.t 
2007-03-23 
09:52:35.000000000 +0800
+++ /home/spring/patch/chgfile/lib-Pod-Simple-t-search26.t  
   2007-09-10 
17:12:02.000000000 +0800
 -80,13
+80,21 
 
 {
 my $names = join "|", sort keys %$name2where;
+if (ord("A") == 193) {
+ok $names,
"hinkhonk::Glunk|perlzuk|squaa::Glunk|zikzik|Zonk::Pron
k";
+} else {
 ok $names,
"Zonk::Pronk|hinkhonk::Glunk|perlzuk|squaa::Glunk|zikzi
k";
 }
+}
 
 {
 my $names = join "|", sort values %$where2name;
+if (ord("A") == 193) {
+ok $names, 
"hinkhonk::Glunk|hinkhonk::Glunk|perlzuk|squaa::Glunk|z
ikzik|Zonk::Pronk";
+} else {
 ok $names, 
"Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Glunk|perlzuk|sq
uaa::Glunk|zikzik";
 }
+}
 
 print "# OK, bye from ", __FILE__,
"n";
 ok 1;



---
/home/spring/perl/perl-current/lib/Pod/Simple/t/search28.t 
2007-03-23 
09:52:35.000000000 +0800
+++ /home/spring/patch/chgfile/lib-Pod-Simple-t-search28.t  
   2007-09-10 
17:13:14.000000000 +0800
 -74,8
+74,12 
 
 {
 my $names = join "|", sort values %$where2name;
+if (ord("A") == 193) {
+ok $names, "perlzuk|zikzik|Zonk::Pronk";
+} else {
 ok $names, "Zonk::Pronk|perlzuk|zikzik";
 }
+}
 
 
 print "# OK, bye from ", __FILE__,
"n";




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

about | contact  Other archives ( Real Estate discussion Medical topics )