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

[svn at svn.open-ils.org]

Author: dbs
Date: 2007-10-15 23:55:21 -0400 (Mon, 15 Oct 2007)
New Revision: 7887

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Event.pm
Log:
Avoid "unused variable" Perl warning


Modified: trunk/Open-ILS/src/perlmods/OpenILS/Event.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Event.pm	2007-10-15 18:22:25 UTC (rev 7886)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Event.pm	2007-10-16 03:55:21 UTC (rev 7887)
@@ -77,7 +77,9 @@
 	for my $d (@desc) {
 		my $lang = $d->getAttribute('lang');
 		my $code = $d->parentNode->getAttribute('code');
-		$descs->{$lang} = {} unless $descs->{$lang};
+		if (!exists $descs->{$lang}) {
+			$descs->{$lang} = {};
+		}
 		$descs->{$lang}->{$code} = $d->textContent;
 	}
 }