From: fredrik Date: Sun, 2 Oct 2005 23:33:06 +0000 (+0000) Subject: Fix theme regex again. X-Git-Url: http://git.dolda2000.com/gitweb/?a=commitdiff_plain;h=ed5f0d8889c1f3c3a772977c85a18cf31527d379;p=utils.git Fix theme regex again. git-svn-id: svn+ssh://svn.dolda2000.com/srv/svn/repos/src/utils@352 959494ce-11ee-0310-bf91-de5d638817bd --- diff --git a/ANN.pm b/ANN.pm index 020c547..b2c3db3 100644 --- a/ANN.pm +++ b/ANN.pm @@ -98,8 +98,8 @@ sub getthemes my(@parts, $ct, $buf); while($html =~ /\G\    (([^<>]|\|<\/i>)+)/igc) { $buf = $1; - # 0 1 2 3 4 5 6 7 8 9 10 11 - if(@parts = ($buf =~ /(\#(\d+):)?\s*\"([^\"\(]+)(\s*\((\(.*)<\/i>(;\s*)?)?([^<>]+)?\))?\"\s+by\s+([^\(]*[^\(\s])(\s*\(eps (\d+)-(\d+)?\))?/i)) { + # 0 1 2 3 4 5 6 7 8 9 10 11 + if(@parts = ($buf =~ /(\#(\d+):)?\s*\"([^\"\(]+\S)(\s*\((\(.*)<\/i>(;\s*)?)?([^<>]+)?\))?\"\s+by\s+([^\(]*[^\(\s])(\s*\(eps (\d+)-(\d+)?\))?/i)) { $ct = {}; $ct->{"num"} = $parts[1] if defined $parts[1]; if(defined $parts[5]) {