quell warning on NULL item fields
Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
This commit is contained in:
parent
5d0f29090b
commit
57be4114d8
1 changed files with 1 additions and 0 deletions
|
@ -41,6 +41,7 @@ my $data;
|
||||||
while ( my ($key, $value ) = each(%$item) ) {
|
while ( my ($key, $value ) = each(%$item) ) {
|
||||||
$data->{$key} .= "<span class='field' id='$key'>";
|
$data->{$key} .= "<span class='field' id='$key'>";
|
||||||
|
|
||||||
|
$value = '' unless defined $value;
|
||||||
my @characters = split(//, $value );
|
my @characters = split(//, $value );
|
||||||
my $charnum = 1;
|
my $charnum = 1;
|
||||||
my $wordnum = 1;
|
my $wordnum = 1;
|
||||||
|
|
Loading…
Reference in a new issue