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 15:15:41 +0000 (11:15 -0400)
commit8f2e7fbce3900acfa71f67343a47407dd9c6b45f
treeaaac5bc12f559a76fb669737d237c633ee536ccf
parent4e435cb55dc82d02e51bc760b967de1087330e50
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