Calling split on an undefined var generates warning to
the log. Let's check it exists before processing it
Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Galen Charlton <gmc@esilibrary.com>
my $tab = $data->{ $title };
$tab = { '' => $tab } if ( ref( $tab ) eq 'ARRAY' );
- my @override_syspref_names = split( /,/, $ENV{"OVERRIDE_SYSPREF_NAMES"} );
+ my @override_syspref_names;
+ if ( $ENV{OVERRIDE_SYSPREF_NAMES} ) {
+ @override_syspref_names = split /,/, $ENV{OVERRIDE_SYSPREF_NAMES};
+ }
foreach my $group ( sort keys %$tab ) {
if ( $group ) {