Author: sparky
Date: Tue Feb 15 00:38:53 2011
New Revision: 12151
Modified:
toys/rsget.pl/RSGet/Line.pm
Log:
- collapse whitespaces before printing
Modified: toys/rsget.pl/RSGet/Line.pm
==============================================================================
--- toys/rsget.pl/RSGet/Line.pm (original)
+++ toys/rsget.pl/RSGet/Line.pm Tue Feb 15 00:38:53 2011
@@ -210,7 +210,7 @@
my $text = shift;
$text = "" unless defined $text;
$text =~ s/\n+$//sg;
- $text =~ s/\n/ /sg;
+ $text =~ s/\s+/ /sg;
$text =~ s/\0/***/g;
$active{ $line }->[1] = $text;
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
