Commits

Anonymous committed 902686b

Refactoring: removed another instance of _with_curr_line().

Comments (0)

Files changed (1)

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

             }
             elsif ($which_tag eq "entity")
             {
-                $self->_with_curr_line(
-                    sub {
-                        my $l = shift;
-                        if ($$l !~ m{\G(\&\w+;)}g)
-                        {
-                            Carp::confess("Cannot match entity (e.g: \""\") at line " .
-                                $self->_get_line_num()
-                            );
-                        }
-                        push @contents, HTML::Entities::decode_entities($1);
-                    }
-                );
+                my $l = $self->_curr_line_ref();
+
+                if (my ($text) = ($$l =~ m{\G(\&\w+;)}g))
+                {
+                    push @contents, HTML::Entities::decode_entities($text);
+                }
+                else
+                {
+                    Carp::confess("Cannot match entity (e.g: \""\") at line " .
+                        $self->_get_line_num()
+                    );
+                }
+
                 redo CONTENTS_LOOP;
             }
         }