fix to have initialized values

This commit is contained in:
Jordi Sanfeliu 2014-06-18 10:06:10 +02:00
parent 07e6b4c727
commit 907d18710d
3 changed files with 6 additions and 6 deletions

View File

@ -378,8 +378,8 @@ sub kern_cgi {
my ($package, $config, $cgi) = @_;
my $kern = $config->{kern};
my @rigid = split(',', $kern->{rigid});
my @limit = split(',', $kern->{limit});
my @rigid = split(',', ($kern->{rigid} || ""));
my @limit = split(',', ($kern->{limit} || ""));
my $tf = $cgi->{tf};
my $colors = $cgi->{colors};
my $graph = $cgi->{graph};

View File

@ -247,8 +247,8 @@ sub proc_cgi {
my $proc = $config->{proc};
my $kern = $config->{kern};
my @rigid = split(',', $proc->{rigid});
my @limit = split(',', $proc->{limit});
my @rigid = split(',', ($proc->{rigid} || ""));
my @limit = split(',', ($proc->{limit} || ""));
my $tf = $cgi->{tf};
my $colors = $cgi->{colors};
my $graph = $cgi->{graph};

View File

@ -339,8 +339,8 @@ sub system_cgi {
my ($package, $config, $cgi) = @_;
my $system = $config->{system};
my @rigid = split(',', $system->{rigid});
my @limit = split(',', $system->{limit});
my @rigid = split(',', ($system->{rigid} || ""));
my @limit = split(',', ($system->{limit} || ""));
my $tf = $cgi->{tf};
my $colors = $cgi->{colors};
my $graph = $cgi->{graph};