Avoid trying to use an undefined value as an array reference.

This commit is contained in:
hjp 2013-11-13 22:09:29 +00:00
parent accc96a1e4
commit d360ae4722
3 changed files with 3 additions and 3 deletions

View File

@ -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"
],

View File

@ -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

View File

@ -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(", ",