r1236@llin: dpavlin | 2007-05-24 16:38:02 +0200

[webpac2] / lib / WebPAC / Validate.pm

diff --git a/lib/WebPAC/Validate.pm b/lib/WebPAC/Validate.pm
index c29c81d..686d4d8 100644 (file)
--- a/lib/WebPAC/Validate.pm
+++ b/lib/WebPAC/Validate.pm
@@ -67,10 +67,10 @@ sub new {
        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} ) ||