From 0e87fe3707a065ded82a4fd9489688d74f5266b0 Mon Sep 17 00:00:00 2001
From: Jason Etheridge <jason@esilibrary.com>
Date: Thu, 9 Oct 2008 17:56:42 +0000
Subject: [PATCH] silence un-init string warning

---
 unicorn_patron_xml2text.pl |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/unicorn_patron_xml2text.pl b/unicorn_patron_xml2text.pl
index eeb21c7..bd28c12 100755
--- a/unicorn_patron_xml2text.pl
+++ b/unicorn_patron_xml2text.pl
@@ -108,7 +108,7 @@ for my $patron ( $doc->documentElement->childNodes ) {
             foreach my $e ( @addr_elements ) {
                 my $v;
                 if ($e eq "known_bad") {
-                    $v = $addresses{$t}->getAttribute( $e ); $v =~ s/^\s+//; $v =~ s/\s+$//;
+                    $v = $addresses{$t}->getAttribute( $e ); if ($v) { $v =~ s/^\s+//; $v =~ s/\s+$//; }
                 } else {
                     $v = $addresses{$t}->findvalue( $e ); $v =~ s/^\s+//; $v =~ s/\s+$//;
                 }
-- 
1.7.2.5