[Po4a-commits] "po4a/lib/Locale/Po4a Text.pm,1.8,1.9"

Nicolas FRANCOIS nekral-guest at alioth.debian.org
Mon Oct 9 21:01:55 UTC 2006


Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory haydn:/tmp/cvs-serv8044/lib/Locale/Po4a

Modified Files:
	Text.pm 
Log Message:
Reindent


Index: Text.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Text.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- Text.pm	9 Oct 2006 21:01:04 -0000	1.8
+++ Text.pm	9 Oct 2006 21:01:53 -0000	1.9
@@ -153,14 +153,14 @@
                 $bullet_regex =~ s/\./\\\./;
                 $bullet_regex =~ s/[0-9]+/\\d\+/;
                 if ($para eq '' or $para =~ m/^$bullet_regex\S/s) {
-                my $trans = $self->translate($text,
-                                             $self->{ref},
-                                             "Bullet: '$indent1$bullet'",
-                                             "wrap" => 1,
-                                             "wrapcol" => - (length $indent2));
-                $trans =~ s/^/$indent1$bullet/s;
-                $trans =~ s/\n(.)/\n$indent2$1/sg;
-                $self->pushline( $trans."\n" );
+                    my $trans = $self->translate($text,
+                                                 $self->{ref},
+                                                 "Bullet: '$indent1$bullet'",
+                                                 "wrap" => 1,
+                                                 "wrapcol" => - (length $indent2));
+                    $trans =~ s/^/$indent1$bullet/s;
+                    $trans =~ s/\n(.)/\n$indent2$1/sg;
+                    $self->pushline( $trans."\n" );
                     if ($para eq '') {
                         return;
                     } else {




More information about the Po4a-commits mailing list