Fix re for identifying event when using Medium storage scheme

This commit is contained in:
Isaac Connor 2018-01-10 15:36:36 -05:00
parent 493b063308
commit 89ddb8cf5d
1 changed files with 1 additions and 1 deletions

View File

@ -237,7 +237,7 @@ MAIN: while( $loop ) {
} elsif ( $$Storage{Scheme} eq 'Medium' ) {
foreach my $event_dir ( glob("$monitor_dir/*/*") ) {
next if ! -d $event_dir;
my ( $date, $event_id ) = $event_dir =~ /^$monitor_dir\/(\d{4}\-\d{2}\-\d{2})\/(\d\+)$/;
my ( $date, $event_id ) = $event_dir =~ /^$monitor_dir\/(\d{4}\-\d{2}\-\d{2})\/(\d+)$/;
if ( ! $event_id ) {
Debug("Unable to parse date/event_id from $event_dir");
next;