From 5a49a231106a69e8f079cbd0818edafb6271098b Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 20 Jun 2001 15:15:01 +0000
Subject: fixed some strange bugs (does it has ever been running correctly ?).

---
 po/pl_create_placeholder | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

(limited to 'po')

diff --git a/po/pl_create_placeholder b/po/pl_create_placeholder
index 3a34cbdb..f1a07a7f 100755
--- a/po/pl_create_placeholder
+++ b/po/pl_create_placeholder
@@ -158,7 +158,7 @@ for($i = 0; $i <= $#ARGV; $i++)
                if($t =~ /\\$/)
                {
                   # the double quote was within the string still.
-                  $text .= unescapeDQString($t + '"');
+                  $text .= unescapeDQString($t . '"');
                }
                else
                {
@@ -185,7 +185,7 @@ for($i = 0; $i <= $#ARGV; $i++)
                if($t =~ s/\\$//)
                {
                   # the single quote was still in the string.
-                  $text .= unescapeDQString($t + "'");
+                  $text .= unescapeDQString($t . "'");
                }
                else
                {
@@ -220,7 +220,7 @@ for($i = 0; $i <= $#ARGV; $i++)
          elsif($state eq 'end_text')
          {
             # we allow only period to appear between strings.
-            if($line =~ s/^\s*([\.\)])//)
+            if($line =~ s/^\s*([\.\),])//)
             {
                # check what we've got.
                if($1 eq '.')
@@ -310,9 +310,9 @@ foreach $msgid (keys(%msgs))
    # check how many lines we have.
    if($#lines == 0)
    {
-# only multiline aren't found by xgettext
+      my $fuck_dblquote = $lines[0]; $fuck_dblquote =~ s/\"/\\\"/g;
       # one line format.
-      #print OUT "N_(\"$lines[0]\"),\n";
+      print OUT "N_(\"$fuck_dblquote\"),\n";
    }
    else
    {
@@ -320,7 +320,8 @@ foreach $msgid (keys(%msgs))
       print OUT "N_(\"\"\n";
       foreach $line (@lines)
       {
-         print OUT "\"$line\"\n"
+	 my $fuck_dblquote = $line; $fuck_dblquote =~ s/\"/\\\"/g;
+         print OUT "\"$fuck_dblquote\"\n";
       }
       print OUT "\"\"),\n";
    }
-- 
cgit v1.2.1