From 7d4f0d4bf68cb36d0c80a3c2c423ecd9eff60cf6 Mon Sep 17 00:00:00 2001 From: Colin Campbell Date: Thu, 24 Oct 2013 17:00:23 +0100 Subject: [PATCH] Bug 11135 Check variable exists before splitting Content-Type: text/plain; charset=utf-8 calling split on an undefined var generates warning to the log. Lets check it exists before processing it Signed-off-by: Marcel de Rooy --- admin/preferences.pl | 5 ++++- 1 files changed, 4 insertions(+), 1 deletions(-) diff --git a/admin/preferences.pl b/admin/preferences.pl index 8636afe..9a2c8ca 100755 --- a/admin/preferences.pl +++ b/admin/preferences.pl @@ -121,7 +121,10 @@ sub TransformPrefsToHTML { 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 ) { -- 1.7.7.6