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 e11e16f..c821a67 100755 (executable)
--- 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;