Avoid deprecated Perl syntax.

[pspp-builds.git] / tests / data / data-out.at

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') {