Commits

Anonymous committed fca8212

More fixes.

  • Participants
  • Parent commits 2c83dbb
  • Branches convert-to-Parser-MGC

Comments (0)

Files changed (1)

File perl/modules/XML-Grammar-Fiction/TEMP/new-Parser-MGC-XML-Fiction-parser.pl

 
 sub _parse_opening_tag_attrs
 {
-    my $self = shift;
-    my $l = shift;
+    my ($self, $l) = @_;
 
     my @attrs;
 
 
     $l =~ m{^};
 
-    while ($$l =~ m{\G\s*($id_regex)="([^"]+)"\s*}cg)
+    while ($l =~ m{\G\s*($id_regex)="([^"]+)"\s*}cg)
     {
         push @attrs, { 'key' => $1, 'value' => $2, };
     }
         qr/<($id_regex)\s*((?:\s+${id_regex}="[^"]+")*)(?:\s*\/\s*)?>/
     );
 
-    $self->commit;
-
     return XML::Grammar::Fiction::Struct::Tag->new(
         name => $tag_name,
         is_standalone => (length($trail_slash) > 0),
-        line => $self->line_num(),
+        # TODO : put something meaningful here
+        line => 1,
         attrs => $self->_parse_opening_tag_attrs($attrs),
     );
 }