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

My logdorectory change had broken prefix -- fixed that. Also corrected bug where it was declaring $config instead of $conf

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

+ 5 - 3
pisg.pl

@@ -21,7 +21,7 @@ use Getopt::Long;
 # along with this program; if not, write to the Free Software
 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
-my $config;
+my $conf;
 my $words;
 
 # Values that _MUST_ be set below (unless you pass them on commandline)
@@ -310,8 +310,10 @@ sub parse_dir
     }
 
     foreach my $file (@filesarray) {
-        $file = $conf->{logdir} . $file;
-        parse_file($file);
+        if (grep /^$conf->{prefix}/, $file) {
+            $file = $conf->{logdir} . $file;
+            parse_file($file);
+        }
     }
 
 }