Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[GGE::Perl6Regex] null 'before' always fails

  • Loading branch information...
commit 939bcac0763567dc9b8aa036b99c4ef3df4cad26 1 parent 2c1baee
@masak authored
Showing with 5 additions and 1 deletion.
  1. +5 −1 lib/GGE/Perl6Regex.pm
View
6 lib/GGE/Perl6Regex.pm
@@ -769,7 +769,11 @@ class GGE::Perl6Regex is also {
}
class GGE::Match is also {
- method before($pattern) {
+ multi method before() {
+ return GGE::Match.new(self); # a failure
+ }
+
+ multi method before($pattern) {
my $rule = GGE::Perl6Regex.new($pattern);
my $mob = $rule(self);
if $mob { # 'before' matches are always zero-width
Please sign in to comment.
Something went wrong with that request. Please try again.