[Bps-public-commit] r17471 - in Net-Trac/trunk: .

[trs at bestpractical.com]

Author: trs
Date: Tue Dec 30 23:45:30 2008
New Revision: 17471

Modified:
   Net-Trac/trunk/   (props changed)
   Net-Trac/trunk/lib/Net/Trac/TicketHistoryEntry.pm

Log:
 r43331 at zot:  tom | 2008-12-30 23:45:16 -0500
 Fix prop searching regexes so that we actually get prop changes now


Modified: Net-Trac/trunk/lib/Net/Trac/TicketHistoryEntry.pm
==============================================================================
--- Net-Trac/trunk/lib/Net/Trac/TicketHistoryEntry.pm	(original)
+++ Net-Trac/trunk/lib/Net/Trac/TicketHistoryEntry.pm	Tue Dec 30 23:45:30 2008
@@ -41,15 +41,15 @@
     foreach my $line (@prop_lines) {
         my ($prop, $old, $new);
         
-        if ( $line =~ m{<strong>(.*?)</strong> changed from <em>(.*)</em> to <em>(.*)</em>} ) {
+        if ( $line =~ m{<strong>(.*?)</strong>\s+changed\s+from\s+<em>(.*)</em>\s+to\s+<em>(.*)</em>}i ) {
             $prop = $1;
             $old  = $2;
             $new  = $3;
-        } elsif ( $line =~ m{<strong>(.*?)</strong> set to <em>(.*)</em>} ) {
+        } elsif ( $line =~ m{<strong>(.*?)</strong>\s+set\s+to\s+<em>(.*)</em>}i ) {
             $prop = $1;
             $old  = '';
             $new  = $2;
-        } elsif ( $line =~ m{<strong>(.*?)</strong> deleted} ) {
+        } elsif ( $line =~ m{<strong>(.*?)</strong>\s+deleted}i ) {
             $prop = $1;
             $new  = '';
         }