Turn off 'when is experimental' warnings under perl 5.18.

bin/zircon_connection

@@ -2,6 +2,8 @@
 
 use strict;
 use warnings;
+
+no if $] >= 5.018, warnings => "experimental::smartmatch";
 use feature qw( switch );
 
 use Getopt::Long;

bin/zircon_protocol_master

@@ -2,6 +2,8 @@
 
 use strict;
 use warnings;
+
+no if $] >= 5.018, warnings => "experimental::smartmatch";
 use feature qw( switch );
 
 use Getopt::Long;

bin/zircon_protocol_test

@@ -2,6 +2,8 @@
 
 use strict;
 use warnings;
+
+no if $] >= 5.018, warnings => "experimental::smartmatch";
 use feature qw( switch );
 
 use Getopt::Long;

lib/Zircon/Protocol.pm

@@ -4,7 +4,9 @@ package Zircon::Protocol;
 use strict;
 use warnings;
 
+no if $] >= 5.018, warnings => "experimental::smartmatch";
 use feature qw( switch );
+
 use Carp;
 use Scalar::Util qw( weaken );
 

lib/Zircon/Protocol/Serialiser/XML.pm

@@ -4,6 +4,7 @@ package Zircon::Protocol::Serialiser::XML;
 use strict;
 use warnings;
 
+no if $] >= 5.018, warnings => "experimental::smartmatch";
 use feature qw( switch );
 
 use parent 'Zircon::Protocol::Serialiser';

utterloss/bin/zapmop

@@ -3,7 +3,9 @@
 use strict;
 use warnings;
 
+no if $] >= 5.018, warnings => "experimental::smartmatch";
 use feature qw( switch );
+
 use Getopt::Long;
 use Tk;
 use Zircon::Protocol;