From: John Darrington <john@darrington.wattle.id.au>
Date: Thu, 12 Jan 2012 20:21:54 +0000 (+0100)
Subject: Avoid deprecated Perl syntax.
X-Git-Tag: v0.7.9~39
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=759c65a59048de2b9d2ab35cf817fcce52d236f3;p=pspp-builds.git

Avoid deprecated Perl syntax.

Apparently new perl versions don't like qw(x y z) without outer  parentheses.  See
http://search.cpan.org/~flora/perl-5.14.2/pod/perl5140delta.pod#Use_of_qw%28...%29_as_parentheses

This change adds these parentheses.

Reported-by: bojo42 <bojo42@gmail.com>
---

diff --git a/tests/data/data-out.at b/tests/data/data-out.at
index 7fcf8b15..0f8c6bfa 100644
--- a/tests/data/data-out.at
+++ b/tests/data/data-out.at
@@ -25,7 +25,7 @@ print "END FILE.\n";
 print "END INPUT PROGRAM.\n";
 
 print "PRINT OUTFILE='output.txt'/EXPR.\n";
-for my $format qw (F COMMA DOT DOLLAR PCT E CCA CCB CCC CCD CCE N Z) {
+for my $format (qw (F COMMA DOT DOLLAR PCT E CCA CCB CCC CCD CCE N Z)) {
     for my $d (0...16) {
 	my ($min_w);
 	if ($format ne 'E') {