On Wed, Dec 01, 2004 at 03:40:44PM +, Nicholas Clark wrote:
This patch:
On Thu, Nov 04, 2004 at 02:59:25AM -0800, Rafael Garcia-Suarez wrote:
Change 23471 by [EMAIL PROTECTED] on 2004/11/04 09:26:56
Subject: [PATCH blead] [perl #3038] Re: $qr = qr/^a$/m; $x =~ $qr; fails
This patch:
On Thu, Nov 04, 2004 at 02:59:25AM -0800, Rafael Garcia-Suarez wrote:
Change 23471 by [EMAIL PROTECTED] on 2004/11/04 09:26:56
Subject: [PATCH blead] [perl #3038] Re: $qr = qr/^a$/m; $x =~ $qr; fails
From: Rick Delaney [EMAIL PROTECTED]
Date: Sun, 31 Oct 2004
Rick Delaney wrote:
On Wed, Oct 27, 2004 at 07:52:39PM -0400, Stas Bekman wrote:
issues. Perlbug #7781 discuss an almost identical problem as seen Stas
was demonstrating on #p5p.
Thanks for the research, Steve. As it looks #3038 was reported 4.5 years
ago...
Well, I guess that's
Rick Delaney wrote:
I thought I'd get rid of PL_multiline while I was at it (since $* is now
gone) but I was afraid to go too far.
Good idea, this was on my plans :)
What is pp_cswitch and why is it using PL_multiline? It's commented out
in opcode.pl.
pp_cswitch is not compiled (it's
On Wed, Oct 27, 2004 at 07:52:39PM -0400, Stas Bekman wrote:
issues. Perlbug #7781 discuss an almost identical problem as seen Stas
was demonstrating on #p5p.
Thanks for the research, Steve. As it looks #3038 was reported 4.5 years
ago...
Well, I guess that's long enough then, especially
Steve Peters wrote:
On Friday 22 October 2004 11:24 am, Stas Bekman wrote:
It looks like we have a bug in qr//m in all perls. Here is a test case:
[...]
Going through some old perlbugs, there are at least two old bugs mentioning
this problem. Perlbug #3038
On Friday 22 October 2004 11:24 am, Stas Bekman wrote:
It looks like we have a bug in qr//m in all perls. Here is a test case:
my $x = line 1\nline 2\n;
my $qr1 = qr/^line 1$/m;
my $qr2 = qr/(?m:^line 1$)/;
print $qr1\n;
print $x =~ $qr1 ? OK\n : NOT OK\n;
print $qr2\n;
print $x =~ $qr2 ?
It looks like we have a bug in qr//m in all perls. Here is a test case:
my $x = line 1\nline 2\n;
my $qr1 = qr/^line 1$/m;
my $qr2 = qr/(?m:^line 1$)/;
print $qr1\n;
print $x =~ $qr1 ? OK\n : NOT OK\n;
print $qr2\n;
print $x =~ $qr2 ? OK\n : NOT OK\n;
print direct\n;
print $x =~ /^line 1$/m ? OK\n