[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