Dolda2000 GitWeb
/
utils.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Cleanup.
[utils.git]
/
ANN.pm
diff --git
a/ANN.pm
b/ANN.pm
index
aefd04e
..
ce85378
100644
(file)
--- a/
ANN.pm
+++ b/
ANN.pm
@@
-122,7
+122,7
@@
sub getthemes
sub getseries
{
sub getseries
{
- my($id, $buf, $html, %ret
, @cp
);
+ my($id, $buf, $html, %ret);
($id) = @_;
if(!($html = _get geturl $id)) {
($id) = @_;
if(!($html = _get geturl $id)) {
@@
-143,8
+143,7
@@
sub getseries
$ret{"eps"} = $buf;
}
if(($buf) = ($html =~ /genres:<\/b>\n([^<]+)</is)) {
$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});
}
$buf = getthemes $html, "opening";
$ret{"op"} = $buf if(@{$buf});