From patchwork Thu Jan 19 20:19:43 2012 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Jan Kara X-Patchwork-Id: 136904 Return-Path: X-Original-To: patchwork-incoming@ozlabs.org Delivered-To: patchwork-incoming@ozlabs.org Received: from vger.kernel.org (vger.kernel.org [209.132.180.67]) by ozlabs.org (Postfix) with ESMTP id 422271007D3 for ; Fri, 20 Jan 2012 07:19:48 +1100 (EST) Received: (majordomo@vger.kernel.org) by vger.kernel.org via listexpand id S932746Ab2ASUTr (ORCPT ); Thu, 19 Jan 2012 15:19:47 -0500 Received: from cantor2.suse.de ([195.135.220.15]:60933 "EHLO mx2.suse.de" rhost-flags-OK-OK-OK-OK) by vger.kernel.org with ESMTP id S932690Ab2ASUTq (ORCPT ); Thu, 19 Jan 2012 15:19:46 -0500 Received: from relay1.suse.de (unknown [195.135.220.254]) (using TLSv1 with cipher DHE-RSA-AES256-SHA (256/256 bits)) (No client certificate requested) by mx2.suse.de (Postfix) with ESMTP id 26DC78FA98; Thu, 19 Jan 2012 21:19:46 +0100 (CET) Received: by quack.suse.cz (Postfix, from userid 1000) id 9E674205DD; Thu, 19 Jan 2012 21:19:45 +0100 (CET) From: Jan Kara To: Ted Tso Cc: linux-ext4@vger.kernel.org, Jan Kara Subject: [PATCH] Make wordwrap.pl work with perl 5.12.1 Date: Thu, 19 Jan 2012 21:19:43 +0100 Message-Id: <1327004383-6959-1-git-send-email-jack@suse.cz> X-Mailer: git-send-email 1.7.1 Sender: linux-ext4-owner@vger.kernel.org Precedence: bulk List-ID: X-Mailing-List: linux-ext4@vger.kernel.org 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 --- 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#;