| Newsgroups |
perl.cvs.perlfaq |
| Message-ID |
<[email protected]> |
cvsuser 02/03/11 14:15:19
Modified: . perlfaq4.pod
Log:
* syncing FAQ changes from perl5.7.3 sources.
* one change: added the i flag to a m// in 'How do I find matching/nesting anything?'
Revision Changes Path
1.19 +2 -2 perlfaq/perlfaq4.pod
Index: perlfaq4.pod
===================================================================
RCS file: /cvs/public/perlfaq/perlfaq4.pod,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -w -r1.18 -r1.19
--- perlfaq4.pod 11 Mar 2002 21:32:23 -0000 1.18
+++ perlfaq4.pod 11 Mar 2002 22:15:19 -0000 1.19
@@ -1,6 +1,6 @@
=head1 NAME
-perlfaq4 - Data Manipulation ($Revision: 1.18 $, $Date: 2002/03/11 21:32:23 $)
+perlfaq4 - Data Manipulation ($Revision: 1.19 $, $Date: 2002/03/11 22:15:19 $)
=head1 DESCRIPTION
@@ -595,7 +595,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?