Avoid trying to use an undefined value as an array reference.
This commit is contained in:
parent
accc96a1e4
commit
d360ae4722
|
@ -4,7 +4,7 @@
|
|||
"unknown"
|
||||
],
|
||||
"dynamic_config" : 0,
|
||||
"generated_by" : "Module::Build version 0.4001, CPAN::Meta::Converter version 2.110440",
|
||||
"generated_by" : "Module::Build version 0.38, CPAN::Meta::Converter version 2.110440",
|
||||
"license" : [
|
||||
"perl_5"
|
||||
],
|
||||
|
|
|
@ -4,7 +4,7 @@ author:
|
|||
- unknown
|
||||
build_requires: {}
|
||||
dynamic_config: 0
|
||||
generated_by: 'Module::Build version 0.4001, CPAN::Meta::Converter version 2.110440'
|
||||
generated_by: 'Module::Build version 0.38, CPAN::Meta::Converter version 2.110440'
|
||||
license: perl
|
||||
meta-spec:
|
||||
url: http://module-build.sourceforge.net/META-spec-v1.4.html
|
||||
|
|
|
@ -540,7 +540,7 @@ sub flush_insert_instances {
|
|||
my ($self) = @_;
|
||||
my $dbh = $self->{dbh};
|
||||
|
||||
if (@{ $self->{caches}{insert_instances} }) {
|
||||
if ($self->{caches}{insert_instances} && @{ $self->{caches}{insert_instances} }) {
|
||||
my $cmd = "insert into instances(file, file_id, date, online, session, version)"
|
||||
. " values "
|
||||
. join(", ",
|
||||
|
|
Loading…
Reference in New Issue