From: Abhijit Menon-Sen <ams@wiw.org>
Date: Wed, 20 Feb 2002 06:51:55 +0000 (+0000)
Subject:    Fix suggested by Anton Tagunov <tagunov@motor.ru>.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5ed30e05ed3fff2b3516c0be37ef98859920f520;p=p5sagit%2Fp5-mst-13.2.git

   Fix suggested by Anton Tagunov <tagunov@motor.ru>.

p4raw-id: //depot/perl@14779
---

diff --git a/pod/perlfaq4.pod b/pod/perlfaq4.pod
index 3b9cac6..8df3c82 100644
--- a/pod/perlfaq4.pod
+++ b/pod/perlfaq4.pod
@@ -581,7 +581,7 @@ really does work:
     @( = ('(','');
     @) = (')','');
     ($re=$_)=~s/((BEGIN)|(END)|.)/$)[!$3]\Q$1\E$([!$2]/gs;
-    @$ = (eval{/$re/},$@!~/unmatched/);
+    @$ = (eval{/$re/},$@!~/unmatched/i);
     print join("\n",@$[0..$#$]) if( $$[-1] );
 
 =head2 How do I reverse a string?