[open-ils-commits] r12835 - trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD (dbs)

[svn at svn.open-ils.org]

Author: dbs
Date: 2009-04-09 13:09:55 -0400 (Thu, 09 Apr 2009)
New Revision: 12835

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Holding.pm
Log:
Avoid a warning about testing against an undefined value


Modified: trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Holding.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Holding.pm	2009-04-09 16:53:07 UTC (rev 12834)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Holding.pm	2009-04-09 17:09:55 UTC (rev 12835)
@@ -173,12 +173,14 @@
     $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;