[open-ils-commits] r8104 - branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Utils

[svn at svn.open-ils.org]

Author: erickson
Date: 2007-11-21 10:58:54 -0500 (Wed, 21 Nov 2007)
New Revision: 8104

Modified:
   branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm
Log:
backporting defensive test to prevent warnings

Modified: branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm
===================================================================
--- branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm	2007-11-21 15:44:27 UTC (rev 8103)
+++ branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm	2007-11-21 15:58:54 UTC (rev 8104)
@@ -214,7 +214,7 @@
 					$data->{$class}->{$type} = $arr;
 				}
 			}
-			$data->{$class}->{$type} =~ s/\s+/ /go;
+			$data->{$class}->{$type} =~ s/\s+/ /go if ($data->{$class}->{$type});
 		}
 	}