Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Handle empty arrayrefs gracefully.

Browse Source
This commit is contained in:
Chris 2014-06-24 15:07:39 +01:00
parent 98b4d45a44
commit d323829b69
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Webperl/Utils.pm
View File

@ -380,7 +380,7 @@ sub join_complex {
} elsif(ref($value) eq "ARRAY") { } elsif(ref($value) eq "ARRAY") {
croak "join_complex not given a joinstr when joining an array" unless(defined($settings{"joinstr"})); croak "join_complex not given a joinstr when joining an array" unless(defined($settings{"joinstr"}));
croak "join_complex not given any content when joining an array" unless(scalar(@{$value})); return "" unless(scalar(@{$value}));
return join($settings{"joinstr"}, @{$value}); return join($settings{"joinstr"}, @{$value});
} elsif(ref($value) eq "HASH") { } elsif(ref($value) eq "HASH") {