diff options
| author | Craig A. Berry <craigberry@mac.com> | 2012-02-14 19:14:54 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2012-02-14 19:14:54 -0600 |
| commit | 3ade138ef884b7b75bf9ca84458e304269033bd1 (patch) | |
| tree | 8268ee249f1f961886b8f89223b0bde7495cf8d7 | |
| parent | 138e1af697b1745fab0f8cc0275773ca0f138d39 (diff) | |
| download | perl-3ade138ef884b7b75bf9ca84458e304269033bd1.tar.gz | |
Fix Pod::Simple search test for VMS.
Awaiting upstream integration at:
https://rt.cpan.org/Public/Bug/Display.html?id=72551
| -rw-r--r-- | cpan/Pod-Simple/t/search12.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/cpan/Pod-Simple/t/search12.t b/cpan/Pod-Simple/t/search12.t index c132ce9d33..709beb2331 100644 --- a/cpan/Pod-Simple/t/search12.t +++ b/cpan/Pod-Simple/t/search12.t @@ -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???'); |