From 82cd751e467398f30734dfe3ffc49c2b05c14c40 Mon Sep 17 00:00:00 2001 From: dbs Date: Thu, 25 Mar 2010 18:58:40 +0000 Subject: [PATCH] Fix warning from comparison with a possibly undef variable git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_6_0@15984 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm b/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm index 5c37ce2d0b..1e97458708 100644 --- a/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm +++ b/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm @@ -129,7 +129,7 @@ sub get_field_value { # MODS strips the punctuation from 245abc, which often # results in "title subtitle" rather than "title : subtitle"; # this hack gets it back for us - if ($type eq 'title' && $child->nodeName =~ m/subTitle/) { + if ($type && $type eq 'title' && $child->nodeName =~ m/subTitle/) { push(@child_text, " : "); } next unless( $child->nodeType != 3 ); -- 2.11.0