fix: align shebang

README.md

@@ -30,7 +30,7 @@ chmod +x m2h.pl
 Convert a markdown file to HTML:
 
 ```bash
-perl -Ilibm2h.pl input.md > output.html
+perl -Ilib m2h.pl input.md > output.html
 ```
 
 Or read from stdin:

lib/MarkdownParser.pm

@@ -10,6 +10,7 @@ my %CLOSING_TAGS = (
     olist      => "</ol>",
     blockquote => "</blockquote>",
     table      => "</table>",
+    code_block => "</code></pre>",
 );
 
 sub new {
@@ -166,7 +167,6 @@ sub handle_code_block_line {
     my ( $self, $line ) = @_;
 
     if ( $line =~ /^```/ ) {
-        $self->{output} .= "</code></pre>\n";
         $self->transition_to_state('paragraph');
     }
     else {

m2h.pl

@@ -1,4 +1,4 @@
-#!perl -w
+#!/usr/bin/env perl -w
 use strict;
 use Getopt::Long;
 use MarkdownParser;

t/06-code.t

@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 5;
+use Test::More tests => 6;
 use MarkdownParser;
 
 my $parser = MarkdownParser->new();
@@ -32,4 +32,8 @@ is(
     "<pre><code>\n</code></pre>\n",
     "Empty code block"
 );
-
+is(
+    $parser->parse("```\nunterminated"),
+    "<pre><code>\nunterminated\n</code></pre>\n",
+    "Unclosed code block is closed at EOF"
+);