sub getseries
{
- my($id, $buf, $html, %ret, @cp);
+ my($id, $buf, $html, %ret);
($id) = @_;
if(!($html = _get geturl $id)) {
$ret{"eps"} = $buf;
}
if(($buf) = ($html =~ /genres:<\/b>\n([^<]+)</is)) {
- @cp = split /,\s*/, $buf;
- $ret{"gnr"} = \@cp;
+ $ret{"gnr"} = [split /, /, $buf];
}
$buf = getthemes $html, "opening";
$ret{"op"} = $buf if(@{$buf});