fix must_exist name

[webpac2] / lib / WebPAC / Validate.pm

diff --git a/lib/WebPAC/Validate.pm b/lib/WebPAC/Validate.pm
index 6193c63..1856b1f 100644 (file)
--- a/lib/WebPAC/Validate.pm
+++ b/lib/WebPAC/Validate.pm
@@ -106,6 +106,9 @@ sub read_validate_file {
                $log->logdie("can't open validate path $path: $!");
 
        my $v;
+       delete( $self->{must_exist} );
+       delete( $self->{must_exist_sf} );
+       delete( $self->{dont_validate} );
        my $curr_line = 1;
 
        foreach my $l (split(/[\n\r]+/, $v_file)) {
@@ -165,6 +168,9 @@ sub read_validate_delimiters_file {
 
        my $log = $self->_get_logger();
 
+       delete( $self->{_validate_delimiters_templates} );
+       delete( $self->{_delimiters_templates} );
+
        if ( -e $path ) {
                $log->info("using delimiter validation rules from $path");
                open(my $d, $path) || $log->fatal("can't open $path: $!");