Commits

Anonymous committed 3c1fc8a

Another bug fix.

Comments (0)

Files changed (1)

perl/modules/XML-Grammar-Fiction/lib/XML/Grammar/Fiction/FromProto/Parser/MGC.pm

 {
     my ($self) = @_;
 
-    $self->expect(qr/[\s\n]*/);
+    $self->expect(qr/(?:[\s\n]*)/ms);
 
     return $self->scope_of(undef,
         sub { return $self->_open_close_tag(); },
     my ($self, $string) = @_;
 
     # Don't skip whitespace.
-    $self->{patterns}->{ws} = qr//;
+    $self->{patterns}->{ws} = qr/(?!)/;
 
     return $self->from_string($string);
 }