[Bast-commits] r9020 - ironman/Perlanet-IronMan/lib/Perlanet

[idn at dev.catalyst.perl.org]

Author: idn
Date: 2010-03-17 22:18:59 +0000 (Wed, 17 Mar 2010)
New Revision: 9020

Modified:
   ironman/Perlanet-IronMan/lib/Perlanet/IronMan.pm
Log:
Check the xml_entry title as well as the body and tags

Modified: ironman/Perlanet-IronMan/lib/Perlanet/IronMan.pm
===================================================================
--- ironman/Perlanet-IronMan/lib/Perlanet/IronMan.pm	2010-03-17 20:34:29 UTC (rev 9019)
+++ ironman/Perlanet-IronMan/lib/Perlanet/IronMan.pm	2010-03-17 22:18:59 UTC (rev 9020)
@@ -271,6 +271,13 @@
             }
         }
  
+        # Check the title if defined
+        if(defined($xml_entry->title)) {
+            if(grep(/$filter/i, $xml_entry->title)) {
+                return 1;
+            }
+        }
+
         # Check the body if defined
         if(defined($xml_entry->content->body)) {
             if($xml_entry->content->body =~ m/$filter/i) {