106 |
$log->logdie("can't open validate path $path: $!"); |
$log->logdie("can't open validate path $path: $!"); |
107 |
|
|
108 |
my $v; |
my $v; |
109 |
|
delete( $self->{must_exists} ); |
110 |
|
delete( $self->{must_exist_sf} ); |
111 |
|
delete( $self->{dont_validate} ); |
112 |
my $curr_line = 1; |
my $curr_line = 1; |
113 |
|
|
114 |
foreach my $l (split(/[\n\r]+/, $v_file)) { |
foreach my $l (split(/[\n\r]+/, $v_file)) { |
168 |
|
|
169 |
my $log = $self->_get_logger(); |
my $log = $self->_get_logger(); |
170 |
|
|
171 |
|
delete( $self->{_validate_delimiters_templates} ); |
172 |
|
delete( $self->{_delimiters_templates} ); |
173 |
|
|
174 |
if ( -e $path ) { |
if ( -e $path ) { |
175 |
$log->info("using delimiter validation rules from $path"); |
$log->info("using delimiter validation rules from $path"); |
176 |
open(my $d, $path) || $log->fatal("can't open $path: $!"); |
open(my $d, $path) || $log->fatal("can't open $path: $!"); |