From 57be4114d8f3bc443186cd22f44057733d145d67 Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Sun, 2 Aug 2009 11:01:55 -0400 Subject: [PATCH] quell warning on NULL item fields Signed-off-by: Galen Charlton --- labels/spinelabel-print.pl | 1 + 1 file changed, 1 insertion(+) 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; -- 2.39.5