--- trunk/lib/WebPAC/Validate.pm 2007/05/24 14:42:35 838 +++ trunk/lib/WebPAC/Validate.pm 2007/05/24 14:42:38 839 @@ -67,10 +67,10 @@ my $self = {@_}; bless($self, $class); -warn dump( @_ ); - my $log = $self->_get_logger(); + $log->logdie("need path or delimiters_path") unless ( $self->{path} || $self->{delimiters_path} ); + if ( $self->{path} ) { my $v_file = read_file( $self->{path} ) ||