From 0dfa47df8914f18f640c7e120a6322dd124a118b Mon Sep 17 00:00:00 2001 From: dbs Date: Thu, 9 Apr 2009 17:09:55 +0000 Subject: [PATCH] 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 --- Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Holding.pm | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) 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; -- 2.11.0