From b9ec4ff78d24f3c3fbeb7a8838ad578e9f748ef3 Mon Sep 17 00:00:00 2001 From: Ethan Jackson Date: Mon, 11 Jul 2011 18:56:59 -0700 Subject: [PATCH] tests: Fix deprecated use of qw. This causes tests to fail on my system with the following error. Use of qw(...) as parentheses is deprecated at /home/root/ovs/tests/flowgen.pl line 35. --- tests/flowgen.pl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/tests/flowgen.pl b/tests/flowgen.pl index 4e2e5ad7..d397515a 100755 --- a/tests/flowgen.pl +++ b/tests/flowgen.pl @@ -32,19 +32,19 @@ print PACKETS pack('NnnNNNN', output(DL_HEADER => '802.2'); -for my $dl_header qw(802.2+SNAP Ethernet) { +for my $dl_header (qw(802.2+SNAP Ethernet)) { my %a = (DL_HEADER => $dl_header); - for my $dl_vlan qw(none zero nonzero) { + for my $dl_vlan (qw(none zero nonzero)) { my %b = (%a, DL_VLAN => $dl_vlan); # Non-IP case. output(%b, DL_TYPE => 'non-ip'); - for my $ip_options qw(no yes) { + for my $ip_options (qw(no yes)) { my %c = (%b, DL_TYPE => 'ip', IP_OPTIONS => $ip_options); - for my $ip_fragment qw(no first middle last) { + for my $ip_fragment (qw(no first middle last)) { my %d = (%c, IP_FRAGMENT => $ip_fragment); - for my $tp_proto qw(TCP TCP+options UDP ICMP other) { + for my $tp_proto (qw(TCP TCP+options UDP ICMP other)) { output(%d, TP_PROTO => $tp_proto); } } -- 2.30.2