Bug#744366: Patch for #744366 (man module mangles preprocessor line)

[Robert Luberda]

tags 744366 patch
thanks

Please find a simple patch attached to this mail

Regards,
robert

Index: lib/Locale/Po4a/Man.pm
===================================================================
--- lib/Locale/Po4a/Man.pm	(wersja 2754)
+++ lib/Locale/Po4a/Man.pm	(kopia robocza)
@@ -687,7 +687,7 @@
         if ($line =~ m/^[.']*$/) {
             if ($c !~ m/^\s+$/) {
                 # This commentted line may be comment for the next paragraph
-                push @next_comments, $c;
+                push @next_comments, [substr($line,0,1),$c];
             }
             if ($line =~ m/^[.']+$/) {
                 # those lines are ignored
@@ -699,7 +699,7 @@
                 goto NEW_LINE;
             }
         } else {
-            push @comments, $c;
+            push @comments, ['.', $c];
         }
     } else {
         # finally, we did not reach the end of the paragraph.  The comments
@@ -833,7 +833,7 @@
         # add comments
         foreach my $c (@comments) {
             # comments are pushed (maybe at the wrong place).
-            $self->SUPER::pushline($self->r(".\\\"$c\n"));
+            $self->SUPER::pushline($self->r("$$c[0]\\\"$$c[1]\n"));
         }
         @comments = ();
     }
@@ -1188,7 +1188,7 @@
     }
 
     $str=pre_trans($self,$str,$ref||$self->{ref},$type);
-    $options{'comment'} .= join('\n', @comments);
+    $options{'comment'} .= join('\n', map{ $$_[1] } @comments);
     # Translate this
     $str = $self->SUPER::translate($str,
                                    $ref||$self->{ref},
@@ -1405,7 +1405,7 @@
     @next_comments = @comments;
     @comments = ();
     for my $c (@next_comments) {
-        $self->pushline($self->r(".\\\"$c\n"));
+        $self->pushline($self->r("$$c[0]\\\"$$c[1]\n"));
     }
 
     # reinitialize the module