Fix wordwrap.pl so it is more portable

Needed so that wordwrap.pl works with perl 5.14.2

Signed-off-by: "Theodore Ts'o" <tytso@mit.edu>
bitmap-optimize
Theodore Ts'o 2012-09-21 12:31:13 -04:00
parent b2f5ce5516
commit bbcd91bb0d
1 changed files with 2 additions and 2 deletions

View File

@ -9,8 +9,8 @@ while (<>) {
}
next if (/^$/); # skip blank lines
$linelen = 0;
split;
while (defined($word = shift @_)) {
@words = split;
while (defined($word = shift @words)) {
$word =~ s#\$\(srcdir\)/\.\./version.h#\$\(top_srcdir\)/version.h#;
$word =~ s#\$\(srcdir\)/.\.\/\.\./version.h#\$\(top_srcdir\)/version.h#;
$word =~ s#\$\(srcdir\)/.\.\/et/com_err.h#\$\(top_srcdir\)/lib/et/com_err.h#;