[Po4a-commits] "po4a/lib/Locale/Po4a Po.pm,1.80,1.81"
Nicolas FRANCOIS
nekral-guest at alioth.debian.org
Sat Sep 15 16:15:04 UTC 2007
Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory alioth:/tmp/cvs-serv9534/lib/Locale/Po4a
Modified Files:
Po.pm
Log Message:
Reindent.
Index: Po.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Po.pm,v
retrieving revision 1.80
retrieving revision 1.81
diff -u -d -r1.80 -r1.81
--- Po.pm 15 Sep 2007 16:11:39 -0000 1.80
+++ Po.pm 15 Sep 2007 16:15:02 -0000 1.81
@@ -227,27 +227,31 @@
$linenum++;
if ($line =~ /^#\. ?(.*)$/) { # Automatic comment
$automatic .= (defined($automatic) ? "\n" : "").$1;
-
+
} elsif ($line =~ /^#: ?(.*)$/) { # reference
- $reference .= (defined($reference) ? "\n" : "").$1;
-
+ $reference .= (defined($reference) ? "\n" : "").$1;
+
} elsif ($line =~ /^#, ?(.*)$/) { # flags
$flags .= (defined($flags) ? "\n" : "").$1;
-
+
} elsif ($line =~ /^#(.*)$/) { # Translator comments
- $comment .= (defined($comment) ? "\n" : "").($1||"");
+ $comment .= (defined($comment) ? "\n" : "").($1||"");
} elsif ($line =~ /^msgid (".*")$/) { # begin of msgid
- $buffer .= (defined($buffer) ? "\n" : "").$1;
-
+ $buffer .= (defined($buffer) ? "\n" : "").$1;
+
} elsif ($line =~ /^msgstr (".*")$/) { # begin of msgstr, end of msgid
- $msgid = $buffer;
- $buffer = "$1";
-
+ $msgid = $buffer;
+ $buffer = "$1";
+
} elsif ($line =~ /^(".*")$/) { # continuation of a line
- $buffer .= "\n$1";
+ $buffer .= "\n$1";
+
} else {
- warn wrap_ref_mod("$filename:$linenum", "po4a::po", dgettext("po4a", "Strange line: -->%s<--"), $line);
+ warn wrap_ref_mod("$filename:$linenum",
+ "po4a::po",
+ dgettext("po4a", "Strange line: -->%s<--"),
+ $line);
}
}
$linenum++;
More information about the Po4a-commits
mailing list