Commit 5afc23c7 authored by Michael Gray's avatar Michael Gray
Browse files

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

parent 658f5b1e
......@@ -2,6 +2,8 @@
use strict;
use warnings;
no if $] >= 5.018, warnings => "experimental::smartmatch";
use feature qw( switch );
use Getopt::Long;
......
......@@ -2,6 +2,8 @@
use strict;
use warnings;
no if $] >= 5.018, warnings => "experimental::smartmatch";
use feature qw( switch );
use Getopt::Long;
......
......@@ -2,6 +2,8 @@
use strict;
use warnings;
no if $] >= 5.018, warnings => "experimental::smartmatch";
use feature qw( switch );
use Getopt::Long;
......
......@@ -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 );
......
......@@ -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';
......
......@@ -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;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment