diff options
| author | Andreas Brachold <vdr07@deltab.de> | 2008-06-05 17:51:35 +0000 |
|---|---|---|
| committer | Andreas Brachold <vdr07@deltab.de> | 2008-06-05 17:51:35 +0000 |
| commit | 217af3aa226018610f812b2deb41dddd82203dc9 (patch) | |
| tree | 6e44fbeb678301f2187cbe01886e3540db96cf40 /lib | |
| parent | e0f26f2298ce7a9cdd570cd6f63ee55830bc3b0e (diff) | |
| download | xxv-217af3aa226018610f812b2deb41dddd82203dc9.tar.gz xxv-217af3aa226018610f812b2deb41dddd82203dc9.tar.bz2 | |
* CHANNELS: ignore empty group delimiter like :@500
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/XXV/MODULES/CHANNELS.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/XXV/MODULES/CHANNELS.pm b/lib/XXV/MODULES/CHANNELS.pm index 7c9b579..88841b8 100644 --- a/lib/XXV/MODULES/CHANNELS.pm +++ b/lib/XXV/MODULES/CHANNELS.pm @@ -425,11 +425,14 @@ sub readData { # 250-0 ... it's a group delimiter if($line =~ /^250[\-|\s]0\s/) { - if($line =~ /^250[\-|\s]0\s\:\@\d+\s/) { # Entry to specify the number of the next channel + if($line =~ /^250[\-|\s]0\s\:\@\d+/) { # Entry to specify the number of the next channel ($nPos, $grpText) = $line =~ /^250[\-|\s]0\s\:\@(\d+)\s(.+)/si; } else { # Entry without specify the number of the next channel ($grpText) = $line =~ /^250[\-|\s]0\s\:(.+)/si; } + + next unless($grpText); #ignore empty group delimiter like :@500 + if(exists $grp_data->{$nPos}) { if($grp_data->{$nPos}->{Name} ne $grpText) { $grp = $obj->insertGrp($nPos, $grpText); @@ -438,7 +441,7 @@ sub readData { } delete $grp_data->{$nPos}; } else { - $grp = $obj->insertGrp($nPos, $grpText); + $grp = $obj->insertGrp($nPos, $grpText); } # 250-x ... it's channel x } else { |