From 667fb71fbde2fa2f267472b1c7791c15afcd4b88 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Sun, 30 Jan 2011 18:56:11 -0500 Subject: [PATCH] protect against undef string warnings --- Open-ILS/src/perlmods/lib/OpenILS/WWW/EGWeb.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGWeb.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGWeb.pm index e13b545660..a822d9c5a5 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGWeb.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGWeb.pm @@ -232,8 +232,8 @@ sub parse_config { $ctx->{media_prefix} = (ref $data->{media_prefix}) ? '' : $data->{media_prefix}; $ctx->{base_path} = (ref $data->{base_path}) ? '' : $data->{base_path}; $ctx->{template_paths} = []; - $ctx->{force_valid_xml} = ($data->{force_valid_xml} =~ /true/io) ? 1 : 0; - $ctx->{debug_template} = ($data->{debug_template} =~ /true/io) ? 1 : 0; + $ctx->{force_valid_xml} = ( ($data->{force_valid_xml}||'') =~ /true/io) ? 1 : 0; + $ctx->{debug_template} = ( ($data->{debug_template}||'') =~ /true/io) ? 1 : 0; $ctx->{default_template_extension} = $data->{default_template_extension} || 'tt2'; $ctx->{web_dir} = $data->{web_dir}; -- 2.11.0