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 7fcf8b154e52ce2eb0d6e064093a22e791faaee1..0f8c6bfabd8daf3e76c52d9d7b5c901224e97582 100644 (file)
--- 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') {