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.
