From 759c65a59048de2b9d2ab35cf817fcce52d236f3 Mon Sep 17 00:00:00 2001 From: John Darrington Date: Thu, 12 Jan 2012 21:21:54 +0100 Subject: [PATCH] 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 --- tests/data/data-out.at | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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') { -- 2.30.2