From 8b03291079db279fb1cc9b2050cd5b3d2c2b833f Mon Sep 17 00:00:00 2001
From: dbs <dbs@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 16 Oct 2007 03:55:21 +0000
Subject: [PATCH] Avoid "unused variable" Perl warning

git-svn-id: svn://svn.open-ils.org/ILS/trunk@7887 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Event.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Event.pm b/Open-ILS/src/perlmods/OpenILS/Event.pm
index 1a465ca455..45f5d3b8c3 100644
--- a/Open-ILS/src/perlmods/OpenILS/Event.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Event.pm
@@ -77,7 +77,9 @@ sub _load_events {
 	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;
 	}
 }
-- 
2.11.0