diff options
author | Ethan Jackson <ethan@nicira.com> | 2011-07-11 18:56:59 -0700 |
---|---|---|
committer | Ethan Jackson <ethan@nicira.com> | 2011-07-12 11:28:12 -0700 |
commit | b9ec4ff78d24f3c3fbeb7a8838ad578e9f748ef3 (patch) | |
tree | 805d9ff3b937fd6934e5ee5483c41376b0a61bb5 /tests/flowgen.pl | |
parent | a004a607c7561e1f42d4196e48412f6edee6d99a (diff) |
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.
Diffstat (limited to 'tests/flowgen.pl')
-rwxr-xr-x | tests/flowgen.pl | 10 |
1 files 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); } } |