to_lc + like bug

[DanielHreben]

use v5.12;
use utf8;
use strict;
use warnings;

use Validator::LIVR;
use Data::Dumper;

my $rules = {
    filename   => [ 'required', 'to_lc', {'like' => qr/\.xls(x)?$/} ]
};

my $data = {
    filename => 'test.xLs'
};

my $validator    = Validator::LIVR->new( $rules );
my $cleared_data = $validator->validate( $data );

print Dumper $cleared_data;

# GOT:
# $VAR1 = {
#           'filename' => 'test.xLs'
#         };

# EXPECTED:
# $VAR1 = {
#           'filename' => 'test.xls'
#         };

[koorchik]

регулярное выражение нужно передавать ввиде строки для совметимости

[DanielHreben]

В данном случае не важно, результат не меняется.

[koorchik]

Fixed ( залил на CPAN )