[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