TPAC: Silence two uninit variable warnings
authorDan Scott <dscott@laurentian.ca>
Sat, 4 Aug 2012 14:43:31 +0000 (10:43 -0400)
committerDan Scott <dscott@laurentian.ca>
Sat, 4 Aug 2012 14:43:31 +0000 (10:43 -0400)
commite23f920b1df8c3dc258e7f01810172d60dc43eb2
treebeed544fa0b4e92ffdaaa13de5b266ff3dfdd48e
parentb3a794f4e5a26fb3714665aa5cb15897ddcaefb4
TPAC: Silence two uninit variable warnings

These warnings were 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.

Use of uninitialized value in pattern match (m//) at
/usr/local/share/perl/5.10.1/OpenILS/WWW/EGCatLoader.pm line 250.

Banish them.

Signed-off-by: Dan Scott <dscott@laurentian.ca>
Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm
Open-ILS/src/perlmods/lib/OpenILS/WWW/EGWeb.pm