diff options
| -rw-r--r-- | cpan/Pod-Simple/lib/Pod/Simple.pm | 2 | ||||
| -rw-r--r-- | cpan/Pod-Simple/t/search20.t | 8 | ||||
| -rw-r--r-- | cpan/Pod-Simple/t/search22.t | 13 | ||||
| -rw-r--r-- | cpan/Pod-Simple/t/search25.t | 12 | ||||
| -rw-r--r-- | cpan/Pod-Simple/t/search27.t | 12 | ||||
| -rw-r--r-- | cpan/Pod-Simple/t/search50.t | 5 |
6 files changed, 38 insertions, 14 deletions
diff --git a/cpan/Pod-Simple/lib/Pod/Simple.pm b/cpan/Pod-Simple/lib/Pod/Simple.pm index a122bf700b..566686e0d6 100644 --- a/cpan/Pod-Simple/lib/Pod/Simple.pm +++ b/cpan/Pod-Simple/lib/Pod/Simple.pm @@ -18,7 +18,7 @@ use vars qw( ); @ISA = ('Pod::Simple::BlackBox'); -$VERSION = '3.09'; +$VERSION = '3.09_01'; @Known_formatting_codes = qw(I B C L E F S X Z); %Known_formatting_codes = map(($_=>1), @Known_formatting_codes); diff --git a/cpan/Pod-Simple/t/search20.t b/cpan/Pod-Simple/t/search20.t index 52c6c36a16..3022b3653b 100644 --- a/cpan/Pod-Simple/t/search20.t +++ b/cpan/Pod-Simple/t/search20.t @@ -69,12 +69,16 @@ print $p; { my $names = join "|", sort values %$where2name; -ok $names, "Blorm|Suzzle|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Vliff|perlflif|perlthng|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Wowo|zikzik"; +skip $^O eq 'VMS' ? '-- case may or may not be preserved' : 0, + $names, + "Blorm|Suzzle|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Vliff|perlflif|perlthng|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Wowo|zikzik"; } { my $names = join "|", sort keys %$name2where; -ok $names, "Blorm|Suzzle|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Vliff|perlflif|perlthng|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Wowo|zikzik"; +skip $^O eq 'VMS' ? '-- case may or may not be preserved' : 0, + $names, + "Blorm|Suzzle|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Vliff|perlflif|perlthng|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Wowo|zikzik"; } ok( ($name2where->{'squaa'} || 'huh???'), '/squaa\.pm$/'); diff --git a/cpan/Pod-Simple/t/search22.t b/cpan/Pod-Simple/t/search22.t index 05157b748c..24a91ed45e 100644 --- a/cpan/Pod-Simple/t/search22.t +++ b/cpan/Pod-Simple/t/search22.t @@ -71,13 +71,17 @@ print $p; { print "# won't show any shadows, since we're just looking at the name2where keys\n"; my $names = join "|", sort keys %$name2where; -ok $names, "Blorm|Suzzle|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Vliff|perlflif|perlthng|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Wowo|zikzik"; +skip $^O eq 'VMS' ? '-- case may or may not be preserved' : 0, + $names, + "Blorm|Suzzle|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Vliff|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; -ok $names, "Blorm|Suzzle|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Glunk|hinkhonk::Vliff|hinkhonk::Vliff|perlflif|perlthng|perlthng|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Vliff|squaa::Vliff|squaa::Wowo|zikzik"; +skip $^O eq 'VMS' ? '-- case may or may not be preserved' : 0, + $names, + "Blorm|Suzzle|Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Glunk|hinkhonk::Vliff|hinkhonk::Vliff|perlflif|perlthng|perlthng|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Vliff|squaa::Vliff|squaa::Wowo|zikzik"; my %count; for(values %$where2name) { ++$count{$_} }; @@ -103,8 +107,9 @@ ok( ($name2where->{'perlthng'} || 'huh???'), '/[^\^]testlib1/' ); ok( ($name2where->{'squaa::Vliff'} || 'huh???'), '/[^\^]testlib1/' ); # Some sanity: -ok( ($name2where->{'squaa::Wowo'} || 'huh???'), '/testlib2/' ); - +skip $^O eq 'VMS' ? '-- case may or may not be preserved' : 0, + ($name2where->{'squaa::Wowo'} || 'huh???'), + '/testlib2/'; diff --git a/cpan/Pod-Simple/t/search25.t b/cpan/Pod-Simple/t/search25.t index 77045033b9..610becb7ef 100644 --- a/cpan/Pod-Simple/t/search25.t +++ b/cpan/Pod-Simple/t/search25.t @@ -77,12 +77,16 @@ print $p; { my $names = join "|", sort keys %$name2where; -ok $names, "squaa::Glunk|squaa::Vliff|squaa::Wowo"; +skip $^O eq 'VMS' ? '-- case may or may not be preserved' : 0, + $names, + "squaa::Glunk|squaa::Vliff|squaa::Wowo"; } { my $names = join "|", sort values %$where2name; -ok $names, "squaa::Glunk|squaa::Vliff|squaa::Vliff|squaa::Vliff|squaa::Wowo"; +skip $^O eq 'VMS' ? '-- case may or may not be preserved' : 0, + $names, + "squaa::Glunk|squaa::Vliff|squaa::Vliff|squaa::Vliff|squaa::Wowo"; my %count; for(values %$where2name) { ++$count{$_} }; @@ -102,7 +106,9 @@ ok ! $name2where->{'squaa'}; # because squaa.pm isn't squaa::* ok( ($name2where->{'squaa::Vliff'} || 'huh???'), '/[^\^]testlib1/' ); -ok( ($name2where->{'squaa::Wowo'} || 'huh???'), '/testlib2/' ); +skip $^O eq 'VMS' ? '-- case may or may not be preserved' : 0, + ($name2where->{'squaa::Wowo'} || 'huh???'), + '/testlib2/'; print "# OK, bye from ", __FILE__, "\n"; diff --git a/cpan/Pod-Simple/t/search27.t b/cpan/Pod-Simple/t/search27.t index 22cf32d107..7614e525c4 100644 --- a/cpan/Pod-Simple/t/search27.t +++ b/cpan/Pod-Simple/t/search27.t @@ -74,12 +74,16 @@ print $p; { my $names = join "|", sort keys %$name2where; -ok $names, "squaa|squaa::Glunk|squaa::Vliff|squaa::Wowo"; +skip $^O eq 'VMS' ? '-- case may or may not be preserved' : 0, + $names, + "squaa|squaa::Glunk|squaa::Vliff|squaa::Wowo"; } { my $names = join "|", sort values %$where2name; -ok $names, "squaa|squaa::Glunk|squaa::Vliff|squaa::Vliff|squaa::Vliff|squaa::Wowo"; +skip $^O eq 'VMS' ? '-- case may or may not be preserved' : 0, + $names, + "squaa|squaa::Glunk|squaa::Vliff|squaa::Vliff|squaa::Vliff|squaa::Wowo"; my %count; for(values %$where2name) { ++$count{$_} }; @@ -99,7 +103,9 @@ ok $name2where->{'squaa'}; # because squaa.pm IS squaa* ok( ($name2where->{'squaa::Vliff'} || 'huh???'), '/[^\^]testlib1/' ); -ok( ($name2where->{'squaa::Wowo'} || 'huh???'), '/testlib2/' ); +skip $^O eq 'VMS' ? '-- case may or may not be preserved' : 0, + ($name2where->{'squaa::Wowo'} || 'huh???'), + '/testlib2/'; print "# OK, bye from ", __FILE__, "\n"; diff --git a/cpan/Pod-Simple/t/search50.t b/cpan/Pod-Simple/t/search50.t index 55fb8a5e01..195a8f150c 100644 --- a/cpan/Pod-Simple/t/search50.t +++ b/cpan/Pod-Simple/t/search50.t @@ -77,7 +77,10 @@ if( $testmod ) { print "# Comparing \"$x[0]\" to \"$x[1]\"\n"; for(@x) { s{[/\\]}{/}g; } print "# => \"$x[0]\" to \"$x[1]\"\n"; - ok $x[0], $x[1], " find('$testmod') should match survey's name2where{$testmod}"; + skip $^O eq 'VMS' ? '-- case may or may not be preserved' : 0, + $x[0], + $x[1], + " find('$testmod') should match survey's name2where{$testmod}"; } else { ok 0; # no 'thatpath/<name>.pm' means can't test find() } |