Commits

Shlomi Fish committed e60f1b8

Handle the exception tag better.

  • Participants
  • Parent commits 0195a33

Comments (0)

Files changed (1)

File perl/modules/XML-Grammar-Fiction/lib/XML/Grammar/FictionBase/TagsTree2XML.pm

         warn "At line ", $e->line(), "\n";
         exit(-1);
     }
+    elsif ($e = Exception::Class->caught("XML::Grammar::Fiction::Err::Parse::TagNotClosedAtEOF"))
+    {
+        warn $e->error(), "\n";
+        warn "Open: ", $e->opening_tag->name(),
+            " at line ", $e->opening_tag->line(), "\n"
+            ;
+
+        exit(-1);
+    }
     elsif ($e = Exception::Class->caught())
     {
         if (ref($e))