From: John Darrington 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;ds=sidebyside;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 --- 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') {