diff options
| -rw-r--r-- | lib/XXV/MODULES/AUTOTIMER.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/XXV/MODULES/AUTOTIMER.pm b/lib/XXV/MODULES/AUTOTIMER.pm index c7170e8..8ad1dcc 100644 --- a/lib/XXV/MODULES/AUTOTIMER.pm +++ b/lib/XXV/MODULES/AUTOTIMER.pm @@ -731,10 +731,12 @@ You can also fine tune your search : choices => $DoneChoices, def => sub { my $value = $epg->{Done}; - my @vals = (ref $value eq 'ARRAY') ? @$value : split(/\s*,\s*/, $value); my $ret; - foreach my $v (@vals) { - push(@$ret,$do{$v}); + if($value) { + my @vals = (ref $value eq 'ARRAY') ? @$value : split(/\s*,\s*/, $value); + foreach my $v (@vals) { + push(@$ret,$do{$v}); + } } return $ret; }, |