From 1801bdaa93e5424cd4597705c3464378cb283225 Mon Sep 17 00:00:00 2001 From: Dietmar Maurer Date: Thu, 12 May 2016 11:37:00 +0200 Subject: [PATCH] replace the smartmatch operator --- test/etc_network_interfaces/t.list-interfaces.pl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/test/etc_network_interfaces/t.list-interfaces.pl b/test/etc_network_interfaces/t.list-interfaces.pl index caffe88..41907ae 100644 --- a/test/etc_network_interfaces/t.list-interfaces.pl +++ b/test/etc_network_interfaces/t.list-interfaces.pl @@ -1,5 +1,3 @@ -no warnings 'experimental::smartmatch'; - # Assuming eth0..3 and eth100 # eth0 is part of vmbr0, eth100 is part of the OVS bridge vmbr1 # vmbr0 has ipv4 and ipv6, OVS only ipv4 @@ -99,9 +97,11 @@ $ck->('eth100', type => 'OVSPort'); $ck->('eth100', ovs_type => 'OVSPort'); $ck->('eth100', ovs_bridge => 'vmbr1'); -my $f100 = $ifaces->{vmbr0}->{families}; -die "invalid families defined for vmbr0: @$f100\n" unless [sort(@$f100)] ~~ ['inet', 'inet6']; +my @f100 = sort @{$ifaces->{vmbr0}->{families}}; +die "invalid families defined for vmbr0" + if (scalar(@f100) != 2) || ($f100[0] ne 'inet') || ($f100[1] ne 'inet6'); + # idempotency r(w()); expect load('2'); -- 2.39.2