diff --git a/labels/spinelabel-print.pl b/labels/spinelabel-print.pl index c2f93a33f0..6f4233ad3b 100755 --- a/labels/spinelabel-print.pl +++ b/labels/spinelabel-print.pl @@ -41,6 +41,7 @@ my $data; while ( my ($key, $value ) = each(%$item) ) { $data->{$key} .= ""; + $value = '' unless defined $value; my @characters = split(//, $value ); my $charnum = 1; my $wordnum = 1;