From 3ade138ef884b7b75bf9ca84458e304269033bd1 Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Tue, 14 Feb 2012 19:14:54 -0600
Subject: [PATCH] Fix Pod::Simple search test for VMS.

Awaiting upstream integration at:

https://rt.cpan.org/Public/Bug/Display.html?id=72551
---
 cpan/Pod-Simple/t/search12.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/cpan/Pod-Simple/t/search12.t b/cpan/Pod-Simple/t/search12.t
index c132ce9..709beb2 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???');
-- 
2.7.4