Change 14779: Fix suggested by Anton Tagunov .

[Abhijit Menon-Sen]

Change 14779 by ams@lustre on 2002/02/20 06:51:55

           Fix suggested by Anton Tagunov <[EMAIL PROTECTED]>.

Affected files ...

..... //depot/perl/pod/perlfaq4.pod#67 edit

Differences ...

==== //depot/perl/pod/perlfaq4.pod#67 (text) ====
Index: perl/pod/perlfaq4.pod
--- perl/pod/perlfaq4.pod.~1~   Wed Feb 20 00:00:05 2002
+++ perl/pod/perlfaq4.pod       Wed Feb 20 00:00:05 2002
@@ -581,7 +581,7 @@
     @( = ('(','');
     @) = (')','');
     ($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?
End of Patch.