| Subject: | Previous patch breaks some create() calls |
My patch attached to "$self->{args} needs work" (bug 2865) introduced a
bug such that some calls to create() didn't properly pass the third
argument, $name. The attached patch fixes that.
*** lib/Regexp/Common.pm Sun Jun 29 16:06:53 2003
--- lib/Regexp/Common-patched.pm Tue Jul 8 04:11:57 2003
***************
*** 238,244 ****
use overload
q{""} => sub {
my ($self) = @_;
! my $pat = $self->{create}->($self, $self->{flags}, $self->{args});
if (exists $self->{flags}{-keep}) {
$pat =~ s/\Q(?k:/(/g;
}
--- 238,244 ----
use overload
q{""} => sub {
my ($self) = @_;
! my $pat = $self->{create}->($self, $self->{flags}, $self->{name});
if (exists $self->{flags}{-keep}) {
$pat =~ s/\Q(?k:/(/g;
}