diff mbox

Make wordwrap.pl work with perl 5.12.1

Message ID 1327004383-6959-1-git-send-email-jack@suse.cz
State Not Applicable, archived
Headers show

Commit Message

Jan Kara Jan. 19, 2012, 8:19 p.m. UTC 
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@suse.cz>
---
 wordwrap.pl |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)
diff mbox

Patch

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