From 4dde427dd3515e1cbd2196e3ef7eef21f0fb5fef Mon Sep 17 00:00:00 2001
From: dbs <dbs@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 25 Mar 2010 18:57:31 +0000
Subject: [PATCH] Fix warning from comparison with a possibly undef variable
git-svn-id: svn://svn.open-ils.org/ILS/trunk@15982 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