Avoid "unused variable" Perl warning

git-svn-id: svn://svn.open-ils.org/ILS/trunk@7887 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Event.pm b/Open-ILS/src/perlmods/OpenILS/Event.pm
index 1a465ca..45f5d3b 100644 (file)
--- 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;
        }
 }