Fix for non-existing scripts

master v2014.08
Vitaliy Filippov 2014-08-07 14:10:43 +04:00
parent 66ffaeaee8
commit 148cb3f1b5
1 changed files with 1 additions and 1 deletions

View File

@ -196,7 +196,7 @@ sub load_script
my $self = shift;
my ($script) = @_;
my $m;
if ((!$subs{$script} || $self->{_config_hash}->{reload}) && ($m = [stat $script]->[9] || 0) > $mtime{$script})
if (!$subs{$script} || ($self->{_config_hash}->{reload} && ($m = [stat $script]->[9] || 0) > $mtime{$script}))
{
my $content = $self->get_script($script);
$subs{$script} = eval $content;