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

[idn at dev.catalyst.perl.org]

Author: idn
Date: 2010-03-17 20:34:29 +0000 (Wed, 17 Mar 2010)
New Revision: 9019

Modified:
   ironman/Perlanet-IronMan/lib/Perlanet/IronMan.pm
Log:
Only check the body if it's defined

Modified: ironman/Perlanet-IronMan/lib/Perlanet/IronMan.pm
===================================================================
--- ironman/Perlanet-IronMan/lib/Perlanet/IronMan.pm	2010-03-17 15:36:13 UTC (rev 9018)
+++ ironman/Perlanet-IronMan/lib/Perlanet/IronMan.pm	2010-03-17 20:34:29 UTC (rev 9019)
@@ -271,9 +271,11 @@
             }
         }
  
-        # Check the body
-        if($xml_entry->content->body =~ m/$filter/i) {
-            return 1;
+        # Check the body if defined
+        if(defined($xml_entry->content->body)) {
+            if($xml_entry->content->body =~ m/$filter/i) {
+                return 1;
+            }
         }
     }