Avoid translating Markdown fenced code block info string [Jonas Smede…

…gaard]

Closes #194
Thanks Hans-Christoph for reporting this.

I rewrote this commit because it was initially written against the
Debian package on salsa instead of the upstream source code on that
server. Thanks Jonas for fixing this bug anyway, that's still precious.

lib/Locale/Po4a/Text.pm

@@ -580,13 +580,7 @@ sub parse_markdown {
         do_paragraph($self,$paragraph,$wrapped_mode);
         $wrapped_mode = 0;
         $paragraph="";
-        my $s = "";
-        $s = $self->translate($info_string,
-                                 $self->{ref},
-                                 "Code fence info string",
-                                 "wrap" => 0)
-            if ($info_string);
-        $self->pushline($fence_space_before.$fence.$fence_space_between.$s."\n");
+        $self->pushline("$line\n");
         do_paragraph($self,$paragraph,$wrapped_mode);
         $paragraph="";
         my ($nextline, $nextref) = $self->shiftline();

t/t-20-text/PandocFencedCodeBlocks.pot

@@ -34,12 +34,6 @@ msgid ""
 "~~~~~~~~~~\n"
 msgstr ""
 
-#. type: Code fence info string
-#: t-20-text/PandocFencedCodeBlocks.md:13 t-20-text/PandocFencedCodeBlocks.md:35
-#, no-wrap
-msgid "{#mycode .haskell .numberLines startFrom=\"100\"}"
-msgstr ""
-
 #. type: Plain text
 #: t-20-text/PandocFencedCodeBlocks.md:13 t-20-text/PandocFencedCodeBlocks.md:35
 #, no-wrap
@@ -49,12 +43,6 @@ msgid ""
 "               qsort (filter (>= x) xs)\n"
 msgstr ""
 
-#. type: Code fence info string
-#: t-20-text/PandocFencedCodeBlocks.md:19 t-20-text/PandocFencedCodeBlocks.md:41
-#, no-wrap
-msgid "haskell"
-msgstr ""
-
 #. type: Plain text
 #: t-20-text/PandocFencedCodeBlocks.md:19 t-20-text/PandocFencedCodeBlocks.md:41
 #, no-wrap