if ( $l =~ /(OPAC|INTRANET)\.filename\s*=\s*(.*)\s*$/i ) {
# we only check the two default logfiles, skipping additional ones
- if ( !-w $2 ) {
- warn "Log file $2 is not writable!";
- return;
- };
+ return if !-w $2;
push @logs, $1 . ':' . $2;
}
}
- return unless @logs; # we should find one
+ return if !@logs; # we should find one
return \@logs;
}