TPAC: Silence two uninit variable warnings
authorDan Scott <dscott@laurentian.ca>
Sat, 4 Aug 2012 14:43:31 +0000 (10:43 -0400)
committerBill Erickson <berick@esilibrary.com>
Wed, 15 Aug 2012 17:14:10 +0000 (13:14 -0400)
commit2ffba44d3659147ad5bca87f6ff4b224b7c403cc
tree31b9bbe31567b1b78b4bf24e21b57356e79606db
parentb12a2b3fe1076805b9da429f09d6e539e48bcb07
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>
Signed-off-by: Bill Erickson <berick@esilibrary.com>
Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm
Open-ILS/src/perlmods/lib/OpenILS/WWW/EGWeb.pm