[open-ils-commits] r7890 - trunk/Open-ILS/src/perlmods/OpenILS/Utils

[svn at svn.open-ils.org]

Author: miker
Date: 2007-10-16 20:35:02 -0400 (Tue, 16 Oct 2007)
New Revision: 7890

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm
Log:
quieting warnings about uninitialized value used in substitution

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm	2007-10-16 22:13:27 UTC (rev 7889)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm	2007-10-17 00:35:02 UTC (rev 7890)
@@ -214,7 +214,7 @@
 					$data->{$class}->{$type} = $arr;
 				}
 			}
-			$data->{$class}->{$type} =~ s/\s+/ /go;
+			$data->{$class}->{$type} =~ s/\s+/ /go if ($data->{$class}->{$type});
 		}
 	}