linux-ext4 - [PATCH] Make wordwrap.pl work with perl 5.12.1

lists.openwall.net		lists / announce owl-users owl-dev john-users john-dev passwdqc-users yescrypt popa3d-users / oss-security kernel-hardening musl sabotage tlsify passwords / crypt-dev xvendor / Bugtraq Full-Disclosure linux-kernel linux-netdev linux-ext4 linux-hardening linux-cve-announce PHC
Open Source and information security mailing list archives

Hash Suite: Windows password security audit tool. GUI, reports in PDF.

[<prev] [next>] [day] [month] [year] [list]

Message-Id: <1327004383-6959-1-git-send-email-jack@suse.cz>
Date:	Thu, 19 Jan 2012 21:19:43 +0100
From:	Jan Kara <jack@...e.cz>
To:	Ted Tso <tytso@....edu>
Cc:	linux-ext4@...r.kernel.org, Jan Kara <jack@...e.cz>
Subject: [PATCH] Make wordwrap.pl work with perl 5.12.1

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@...e.cz>
---
 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@...r.kernel.org
More majordomo info at  http://vger.kernel.org/majordomo-info.html