From ed5f0d8889c1f3c3a772977c85a18cf31527d379 Mon Sep 17 00:00:00 2001 From: fredrik Date: Sun, 2 Oct 2005 23:33:06 +0000 Subject: [PATCH] Fix theme regex again. git-svn-id: svn+ssh://svn.dolda2000.com/srv/svn/repos/src/utils@352 959494ce-11ee-0310-bf91-de5d638817bd --- ANN.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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]) { -- 2.11.0