From: dbs <dbs@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 9 Apr 2009 17:09:55 +0000 (+0000)
Subject: Avoid a warning about testing against an undefined value
X-Git-Tag: sprint4-merge-nov22~10288
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=0dfa47df8914f18f640c7e120a6322dd124a118b;p=working%2FEvergreen.git

Avoid a warning about testing against an undefined value


git-svn-id: svn://svn.open-ils.org/ILS/trunk@12835 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Holding.pm b/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Holding.pm
index e11e16fba4..c821a672bb 100755
--- a/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Holding.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Holding.pm
@@ -173,12 +173,14 @@ sub format {
     $str .= ' '. $caption->capstr('z') if (defined $caption->capstr('z'));
 
     # Breaks in the sequence
-    if ($self->{_mfhdh_BREAK} eq 'n') {
-	$str .= ' non-gap break';
-    } elsif ($self->{_mfhdh_BREAK} eq 'g') {
-	$str .= ' gap';
-    } elsif ($self->{_mfhdh_BREAK}) {
-	warn "unrecognized break indicator '$self->{_mfhdh_BREAK}'";
+    if (defined($self->{_mfhdh_BREAK})) {
+        if ($self->{_mfhdh_BREAK} eq 'n') {
+            $str .= ' non-gap break';
+        } elsif ($self->{_mfhdh_BREAK} eq 'g') {
+            $str .= ' gap';
+        } else {
+            warn "unrecognized break indicator '$self->{_mfhdh_BREAK}'";
+        }
     }
 
     return $str;