different wording: potentially invalid combination

[webpac2] / lib / WebPAC / Validate.pm

diff --git a/lib/WebPAC/Validate.pm b/lib/WebPAC/Validate.pm
index 686d4d8..e2e582a 100644 (file)
--- a/lib/WebPAC/Validate.pm
+++ b/lib/WebPAC/Validate.pm
@@ -140,7 +140,7 @@ sub new {
                                }
                        }
                        close($d);
-                       warn "_validate_delimiters_templates = ",dump( $self->{_validate_delimiters_templates} );
+                       #warn "_validate_delimiters_templates = ",dump( $self->{_validate_delimiters_templates} );
                } else {
                        $log->warn("delimiters path $path doesn't exist, it will be created after this run");
                }
@@ -194,7 +194,7 @@ sub validate_rec {
 
                                        if ( my $v = $self->{_validate_delimiters_templates} ) {
                                                if ( ! defined( $v->{$f}->{$template} ) ) {
-                                                       $errors->{$f}->{invalid_delimiters_combination} = $template;
+                                                       $errors->{$f}->{potentially_invalid_combination} = $template;
                                                        $errors->{$f}->{dump} = $subfield_dump;
                                                #} else {
                                                #       warn "## $f $template ok\n";
@@ -505,6 +505,8 @@ sub save_delimiters_templates {
 
        my $log = $self->_get_logger;
 
+       $path .= '.new' if ( -e $path );
+
        open(my $d, '>', $path) || $log->fatal("can't open $path: $!");
        print $d $self->delimiters_templates;
        close($d);