Просмотр исходного кода

It was not dieing cleanly if no logfiles were found in logdir, fixed

Sam
sbingner 25 лет назад
Родитель
Сommit
38a49ba9d3
1 измененных файлов с 7 добавлено и 6 удалено
  1. 7 6
      pisg.pl

+ 7 - 6
pisg.pl

@@ -308,14 +308,15 @@ sub parse_dir
     if (substr($conf->{logdir}, -1) ne '/') {
         $conf->{logdir} =~ s/(.*)/$1\//;
     }
-
-    foreach my $file (@filesarray) {
-        if (grep /^$conf->{prefix}/, $file) {
-            $file = $conf->{logdir} . $file;
-            parse_file($file);
-        }
+    
+    my $parsed = 0;
+    foreach my $file (grep /^$conf->{prefix}/, @filesarray) {
+        $file = $conf->{logdir} . $file;
+        parse_file($file);
+        $parsed = 1;
     }
 
+    die "No files matched prefix $conf->{prefix} in directory $conf->{logdir}" unless ($parsed);
 }
 
 sub parse_file