# New Ticket Created by "Carl Mäsak"
# Please include the string: [perl #83622]
# in the subject line of all future correspondence about this issue.
# http://rt.perl.org/rt3/Ticket/Display.html?id=83622 >
rakudo: say NaN == NaN
rakudo a37640: OUTPUT«Bool::False»
?(NaN == NaN) is supposed
Branch: refs/heads/master
Home: https://github.com/perl6/specs
Commit: 248778e0424abc41bf7ebfb48d719fe8d0d822ce
https://github.com/perl6/specs/commit/248778e0424abc41bf7ebfb48d719fe8d0d822ce
Author: Larry Wall
Date: 2011-02-07 (Mon, 07 Feb 2011)
Changed paths:
M S05-regex.pod
Log Mes
Branch: refs/heads/master
Home: https://github.com/perl6/specs
Commit: a6bb001f14497715bab30a1ab1b86bc0ae296ec9
https://github.com/perl6/specs/commit/a6bb001f14497715bab30a1ab1b86bc0ae296ec9
Author: Larry Wall
Date: 2011-02-07 (Mon, 07 Feb 2011)
Changed paths:
M S05-regex.pod
Log Mes
On Mon, Feb 07, 2011 at 08:38:43AM -0800, Carl Mäsak wrote:
> std: /|&foo/
> std 625303c: OUTPUT«[31m===[0mSORRY![31m===[0mNull
> pattern not allowed [...] FAILED 00:01 117m»
> rakudo: /|&foo/; say 'alive'
> rakudo a37640: OUTPUT«alive»
> * masak submits rakudobug
I think STD might be w
# New Ticket Created by "Carl Mäsak"
# Please include the string: [perl #83574]
# in the subject line of all future correspondence about this issue.
# http://rt.perl.org/rt3/Ticket/Display.html?id=83574 >
std: /|&foo/
std 625303c: OUTPUT«[31m===[0mSORRY![31m===[0mNull
pattern not allow
On Mon, Feb 07, 2011 at 11:36:22AM +0100, Moritz Lenz wrote:
> +| '/' \s* '/' <.panic: "Null regex in substitution not allowed">
>
> But I fear this is the wrong approach. Instead of doing a separate
> null pattern check in every quoting construct, the check should be
> done in the regex parsi
And as an actual patch:
--- a/src/Perl6/Grammar.pm
+++ b/src/Perl6/Grammar.pm
@@ -1477,6 +1477,7 @@ token quote:sym {
}
<.setup_quotepairs>
[
+| '/' \s* '/' <.panic: "Null regex in substitution not allowed">
| '/' ':qq'> <.old_rx_mods>?
| '[' ']'
<.ws> [ '=
# New Ticket Created by Moritz Lenz
# Please include the string: [perl #83552]
# in the subject line of all future correspondence about this issue.
# http://rt.perl.org/rt3/Ticket/Display.html?id=83552 >
08:49 < moritz_> rakudo: $_ = "foo"; s[] = 'bar'; .say
08:50 <+p6eval> rakudo 989883: OUT
