From: Theodore Ts'o <tytso@mit.edu>
Date: Fri, 21 Sep 2012 16:31:13 +0000 (-0400)
Subject: Fix wordwrap.pl so it is more portable
X-Git-Tag: v1.42.6~2
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bbcd91bb0de943b364670373957a5658c4487692;p=thirdparty%2Fe2fsprogs.git

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>
---

diff --git a/wordwrap.pl b/wordwrap.pl
index 646bbc35d..807c62888 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#;