hjp
/
simba
1
0
Fork 0
Code Issues 2 Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
MYMETA.json
View File

@ -4,7 +4,7 @@
"unknown" "unknown"
], ],
"dynamic_config" : 0, "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" : [ "license" : [
"perl_5" "perl_5"
], ],

2
MYMETA.yml
View File

@ -4,7 +4,7 @@ author:
- unknown - unknown
build_requires: {} build_requires: {}
dynamic_config: 0 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 license: perl
meta-spec: meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html url: http://module-build.sourceforge.net/META-spec-v1.4.html

2
lib/Simba/CA.pm
View File

@ -540,7 +540,7 @@ sub flush_insert_instances {
my ($self) = @_; my ($self) = @_;
my $dbh = $self->{dbh}; 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)" my $cmd = "insert into instances(file, file_id, date, online, session, version)"
. " values " . " values "
. join(", ", . join(", ",