From: Jason Etheridge <jason@esilibrary.com>
Date: Thu, 9 Oct 2008 17:56:42 +0000 (+0000)
Subject: silence un-init string warning
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=0e87fe3707a065ded82a4fd9489688d74f5266b0

silence un-init string warning
---

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+$//;
                 }