From d360ae472231e4bd037accbb40af6129a59068a9 Mon Sep 17 00:00:00 2001 From: hjp Date: Wed, 13 Nov 2013 22:09:29 +0000 Subject: [PATCH] Avoid trying to use an undefined value as an array reference. --- MYMETA.json | 2 +- MYMETA.yml | 2 +- lib/Simba/CA.pm | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/MYMETA.json b/MYMETA.json index b1fcb4c..9f5d4f9 100644 --- a/MYMETA.json +++ b/MYMETA.json @@ -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" ], diff --git a/MYMETA.yml b/MYMETA.yml index 92a5bd9..edeaeaf 100644 --- a/MYMETA.yml +++ b/MYMETA.yml @@ -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 diff --git a/lib/Simba/CA.pm b/lib/Simba/CA.pm index b3e3505..0725cdc 100644 --- a/lib/Simba/CA.pm +++ b/lib/Simba/CA.pm @@ -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(", ",