directory
modified
regex
+ follow_symlinks
watch_list/
);
my @changes;
my @changed_files;
+
+ my $delay = ( defined $self->delay ) ? $self->delay : 1;
- sleep $self->delay || 1;
+ sleep $delay if $delay > 0;
eval { @changes = $self->modified->changed };
if ($@) {
sub _index_directory {
my $self = shift;
- my $dir = $self->directory || die "No directory specified";
+ my $dir = $self->directory;
+ die "No directory specified" if !$dir or ref($dir) && !@{$dir};
+
my $regex = $self->regex || '\.pm$';
my %list;
$cur_dir =~ s{/script/..}{};
$list{$cur_dir} = 1;
},
+ follow_fast => $self->follow_symlinks ? 1 : 0,
no_chdir => 1
},
- $dir
+ ref $dir eq 'ARRAY' ? @{$dir} : $dir
);
return \%list;
}