Fix bugs in Perl versions >5.18

billzt · Jun 27, 2020 · dd881e1 · dd881e1
1 parent a1a2bc9
commit dd881e1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/gff3sort.pl b/gff3sort.pl
@@ -10,7 +10,7 @@
 use Sort::Naturally qw/nsort/;    ###### https://metacpan.org/pod/Sort::Naturally
 use Sort::Topological qw/toposort/;   ###### https://metacpan.org/pod/Sort::Topological
 use Pod::Usage;
-use experimental qw/smartmatch/;
+no if ($] >= 5.018), 'warnings' => 'experimental';
 
 ############ Usage ############
 my $help;