Suppress given and when is experimental warnings
This commit is contained in:
parent
3b3c82f417
commit
c41173c06f
@ -29,6 +29,7 @@ use frontend_routes;
|
|||||||
use feature qw(switch);
|
use feature qw(switch);
|
||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
|
no warnings qw(experimental::smartmatch);
|
||||||
|
|
||||||
sub readFullFile {
|
sub readFullFile {
|
||||||
my $aFile = $_[0];
|
my $aFile = $_[0];
|
||||||
|
@ -26,6 +26,7 @@ use threads::shared;
|
|||||||
use feature qw(switch);
|
use feature qw(switch);
|
||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
|
no warnings qw(experimental::smartmatch);
|
||||||
|
|
||||||
sub verifyRequestPrivileges {
|
sub verifyRequestPrivileges {
|
||||||
my $aRequest = $_[0];
|
my $aRequest = $_[0];
|
||||||
|
Loading…
x
Reference in New Issue
Block a user