Mark experimental smartmach feature as enabled to suppress warnings in perl 5.18+.

This doesn't mitigate the fact that smartmatch is now considered experimental,
but use of smartmatch in this script is fairly trivial.

diff --git a/slony_failover.pl b/slony_failover.pl
index e89bc788d54104ceca76f33930621e5eaeb665d2..298efe3f00ed10ec15486cc9a109eab21787689a 100755 (executable)
--- a/slony_failover.pl
+++ b/slony_failover.pl
@@ -23,6 +23,7 @@
 
 use strict;
 use warnings;
 
 use strict;
 use warnings;

+use experimental 'smartmatch';

 use DBI;
 use Getopt::Long qw/GetOptions/;
 use Data::UUID;
 use DBI;
 use Getopt::Long qw/GetOptions/;
 use Data::UUID;