From 00bb902e20387ec397f246fa48d9e249093bc9c4 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Wed, 15 Aug 2012 13:21:24 -0400 Subject: [PATCH] TPAC: Silence one uninit variable warning This warning was being thrown on every TPAC page request, slowly filling the logs: Use of uninitialized value $set_locale in string eq at /usr/local/share/perl/5.10.1/OpenILS/WWW/EGWeb.pm line 159. Signed-off-by: Bill Erickson --- Open-ILS/src/perlmods/lib/OpenILS/WWW/EGWeb.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGWeb.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGWeb.pm index 71a520ce28..984d232b27 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGWeb.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGWeb.pm @@ -155,7 +155,7 @@ sub load_context { $ctx->{locales} = \%registered_locales; # Set a locale cookie if the requested locale is valid - my $set_locale = $cgi->param('set_eg_locale'); + my $set_locale = $cgi->param('set_eg_locale') || ''; if (!(grep {$_ eq $set_locale} keys %registered_locales)) { $set_locale = ''; } else { -- 2.11.0