From 57be4114d8f3bc443186cd22f44057733d145d67 Mon Sep 17 00:00:00 2001
From: Galen Charlton <gmcharlt@gmail.com>
Date: Sun, 2 Aug 2009 11:01:55 -0400
Subject: [PATCH] quell warning on NULL item fields

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
---
 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} .= "<span class='field' id='$key'>";
 
+  $value = '' unless defined $value;
   my @characters = split(//, $value );
   my $charnum = 1;
   my $wordnum = 1;
-- 
2.39.5