From f59ed16fa072d31e5d9190d1b1b0b917b7ac39f3 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Wed, 17 Mar 2010 11:24:32 +0100
Subject: [PATCH] 2 defined entfernt. Der Gebruach ist deprecated, und in
 diesem Fall eh nicht notwendig.

perldoc sagt:

Use of defined  on aggregates (hashes and arrays) is deprecated. It used to report whether memory for that aggregate has ever been allocated. This behavior may disappear in future versions of Perl. You should instead use a simple test for size:
---
 SL/Form.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SL/Form.pm b/SL/Form.pm
index 32ea04d85..ca8d4fc22 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -720,7 +720,7 @@ sub _prepare_html_template {
   my ($self, $file, $additional_params) = @_;
   my $language;
 
-  if (!defined(%main::myconfig) || !defined($main::myconfig{"countrycode"})) {
+  if (!%::myconfig || !$::myconfig{"countrycode"}) {
     $language = $main::language;
   } else {
     $language = $main::myconfig{"countrycode"};
-- 
2.20.1