Fix Pod::Simple search test for VMS.
authorCraig A. Berry <craigberry@mac.com>
Wed, 15 Feb 2012 01:14:54 +0000 (19:14 -0600)
committerCraig A. Berry <craigberry@mac.com>
Wed, 15 Feb 2012 01:14:54 +0000 (19:14 -0600)
Awaiting upstream integration at:

https://rt.cpan.org/Public/Bug/Display.html?id=72551

cpan/Pod-Simple/t/search12.t

index c132ce9..709beb2 100644 (file)
@@ -88,12 +88,12 @@ print $p;
 
 {
 my $names = join "|", sort values %$where2name;
-ok $names, "Suzzle";
+ok lc($names), lc("Suzzle");
 }
 
 {
 my $names = join "|", sort keys %$name2where;
-ok $names, "Suzzle";
+ok lc($names), lc("Suzzle");
 }
 
 ok( ($name2where->{'Vliff'} || 'huh???'), 'huh???');