Parent Directory | Revision Log | Patch
revision 93 by dpavlin, Sat Jan 28 16:43:45 2006 UTC | revision 96 by dpavlin, Sat Jan 28 17:58:22 2006 UTC | |
---|---|---|
# | Line 92 Remove multiple whitespaces from string, | Line 92 Remove multiple whitespaces from string, |
92 | =cut | =cut |
93 | ||
94 | sub _s { | sub _s { |
95 | my $text = $_[1] || return; | my $text = $_[1]; |
96 | return unless defined($text); | |
97 | $text =~ s/\s\s+/ /gs; | $text =~ s/\s\s+/ /gs; |
98 | $text =~ s/^\s+//; | $text =~ s/^\s+//; |
99 | $text =~ s/\s+$//; | $text =~ s/\s+$//; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |