You are viewing a plain text version of this content. The canonical link for it is here.
Posted to docs-cvs@perl.apache.org by st...@apache.org on 2005/01/28 01:18:05 UTC
svn commit: r128447 - /perl/modperl/docs/trunk/src/docs/general/perl_reference/perl_reference.pod
Author: stas
Date: Thu Jan 27 16:18:04 2005
New Revision: 128447
URL: http://svn.apache.org/viewcvs?view=rev&rev=128447
Log:
the regex can't contain /o or it'll be broken:
Reported by: Arshavir Grigorian <ag...@m-cam.com>
Modified:
perl/modperl/docs/trunk/src/docs/general/perl_reference/perl_reference.pod
Modified: perl/modperl/docs/trunk/src/docs/general/perl_reference/perl_reference.pod
Url: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/general/perl_reference/perl_reference.pod?view=diff&rev=128447&p1=perl/modperl/docs/trunk/src/docs/general/perl_reference/perl_reference.pod&r1=128446&p2=perl/modperl/docs/trunk/src/docs/general/perl_reference/perl_reference.pod&r2=128447
==============================================================================
--- perl/modperl/docs/trunk/src/docs/general/perl_reference/perl_reference.pod (original)
+++ perl/modperl/docs/trunk/src/docs/general/perl_reference/perl_reference.pod Thu Jan 27 16:18:04 2005
@@ -2193,8 +2193,8 @@
my $pat = '^foo$';
my $re = qr($pat);
foreach( @list ) {
- print if /$re/o;
- }
+ print if /$re/;
+ }
The qr() operator compiles the pattern for each request and then use
the compiled version in the actual match.
---------------------------------------------------------------------
To unsubscribe, e-mail: docs-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: docs-cvs-help@perl.apache.org