diff options
| author | Andreas Brachold <vdr07@deltab.de> | 2009-06-21 07:33:42 +0000 |
|---|---|---|
| committer | Andreas Brachold <vdr07@deltab.de> | 2009-06-21 07:33:42 +0000 |
| commit | cf4f7cbec03704a1655445ac6092a9f41f763c7a (patch) | |
| tree | ac135b8cd0f7f9f77071dd4e5e9f22a6b9114afd /lib | |
| parent | 167479bbec32232317b5e09eb8aaa64ab83a170b (diff) | |
| download | xxv-cf4f7cbec03704a1655445ac6092a9f41f763c7a.tar.gz xxv-cf4f7cbec03704a1655445ac6092a9f41f763c7a.tar.bz2 | |
* AUTOTIMER: remove warn message, if none done choices defined
Diffstat (limited to 'lib')
| -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; }, |