[Po4a-commits] "po4a/lib/Locale/Po4a Po.pm,1.83,1.84"
Nicolas FRANCOIS
nekral-guest at alioth.debian.org
Sat Sep 15 19:42:04 UTC 2007
Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory alioth:/tmp/cvs-serv16790/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.83
retrieving revision 1.84
diff -u -d -r1.83 -r1.84
--- Po.pm 15 Sep 2007 16:50:15 -0000 1.83
+++ Po.pm 15 Sep 2007 19:42:02 -0000 1.84
@@ -1,4 +1,4 @@
-# Locale::Po4a::Po -- manipulation of po files
+# Locale::Po4a::Po -- manipulation of po files
# $Id$
#
# This program is free software; you may redistribute it and/or modify it
@@ -12,7 +12,7 @@
Locale::Po4a::Po - po file manipulation module
-=head1 SYNOPSIS
+=head1 SYNOPSIS
[...1536 lines suppressed...]
# outputs properly a '# ... ' line to be put in the po file
sub format_comment {
- my $comment=shift;
- my $char=shift;
- my $result = "#". $char . $comment;
- $result =~ s/\n/\n#$char/gs;
- $result =~ s/^#$char$/#/gm;
- $result .= "\n";
- return $result;
+ my $comment=shift;
+ my $char=shift;
+ my $result = "#". $char . $comment;
+ $result =~ s/\n/\n#$char/gs;
+ $result =~ s/^#$char$/#/gm;
+ $result .= "\n";
+ return $result;
}
More information about the Po4a-commits
mailing list