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 (file)
--- 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?