/[webpac2]/trunk/lib/WebPAC/Validate.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Validate.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 857 by dpavlin, Sun May 27 16:49:15 2007 UTC revision 858 by dpavlin, Sun May 27 17:09:47 2007 UTC
# Line 106  sub read_validate_file { Line 106  sub read_validate_file {
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)) {
# Line 165  sub read_validate_delimiters_file { Line 168  sub read_validate_delimiters_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: $!");
Legend:
Removed from v.857  
changed lines
  Added in v.858
  ViewVC Help
Powered by ViewVC 1.1.26