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 <[EMAIL PROTECTED]>
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: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]