diff options
| author | Theodore Ts'o <tytso@mit.edu> | 2012-09-21 12:31:13 -0400 |
|---|---|---|
| committer | Theodore Ts'o <tytso@mit.edu> | 2012-09-21 12:50:04 -0400 |
| commit | bbcd91bb0de943b364670373957a5658c4487692 (patch) | |
| tree | 194e71fb9a79e49e4035547724cc15d7d79bb6c8 | |
| parent | b2f5ce5516a0b6d261876884139043c8e6579f0a (diff) | |
| download | e2fsprogs-bbcd91bb0de943b364670373957a5658c4487692.tar.gz | |
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>
| -rw-r--r-- | wordwrap.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/wordwrap.pl b/wordwrap.pl index 646bbc35..807c6288 100644 --- a/wordwrap.pl +++ b/wordwrap.pl @@ -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#; |