Trim spaces at start and end of lines. Also, turn the foreach loop around so it works on old perls.

This commit is contained in:
ian%hixie.ch 2002-10-13 18:04:58 +00:00
Родитель 5525914a58
Коммит a7cccf725b
1 изменённых файлов: 4 добавлений и 2 удалений

Просмотреть файл

@ -65,7 +65,7 @@ unshift(@ARGV, '-') unless @ARGV;
unshift(@ARGV, @includes);
# do the work
include($stack, $_) foreach (@ARGV);
foreach (@ARGV) { include($stack, $_); }
exit(0);
########################################################################
@ -387,7 +387,9 @@ package filter;
sub spaces {
my($stack, $text) = @_;
$text =~ s/ +/ /gos;
$text =~ s/ +/ /gos; # middle spaces
$text =~ s/^ //gos; # start spaces
$text =~ s/ \n?$//gos; # end spaces
return $text;
}