For some reason wordwrap.pl doesn't work with my perl as split doesn't store
its result in $@ by default. Providing array to store output of split fixes it.
Signed-off-by: Jan Kara <jack@xxxxxxx>
---
wordwrap.pl | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/wordwrap.pl b/wordwrap.pl
index 646bbc3..a7a6651 100644
--- a/wordwrap.pl
+++ b/wordwrap.pl
@@ -9,8 +9,8 @@ while (<>) {
}
next if (/^$/); # skip blank lines
$linelen = 0;
- split;
- while (defined($word = shift @_)) {
+ @broken = split;
+ while (defined($word = shift @broken)) {
$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#;
--
1.7.1
--
To unsubscribe from this list: send the line "unsubscribe linux-ext4" in
the body of a message to majordomo@xxxxxxxxxxxxxxx
More majordomo info at http://vger.kernel.org/majordomo-info.html
