git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1219
07558da8-63fa-0310-ba24-
9fe276d99e06
sub read_config_txt {
my ( $file ) = @_;
my $input;
- foreach ( split(/[\n\r]+/, read_file( "$dir/$path/$path-$file.txt" ) ) ) {
+ my $path ="$dir/$path/$path-$file.txt";
+ if ( ! -e $path ) {
+ warn "missing $path";
+ return;
+ }
+ foreach ( split(/[\n\r]+/, read_file( $path ) ) ) {
my ( $val,$label ) = split(/\s*\t\s*/,$_,2);
push @{ $input->{ '-values' } }, $val;
$input->{ '-labels' }->{$val} = $label;