[Bast-commits] r9945 - ironman/Perlanet-IronMan/trunk/lib/Perlanet

[idn at dev.catalyst.perl.org]

Author: idn
Date: 2012-09-22 11:07:51 +0000 (Sat, 22 Sep 2012)
New Revision: 9945

Modified:
   ironman/Perlanet-IronMan/trunk/lib/Perlanet/IronMan.pm
Log:
Removing defunct debugging comments.  sync with dev

Modified: ironman/Perlanet-IronMan/trunk/lib/Perlanet/IronMan.pm
===================================================================
--- ironman/Perlanet-IronMan/trunk/lib/Perlanet/IronMan.pm	2012-09-22 11:07:22 UTC (rev 9944)
+++ ironman/Perlanet-IronMan/trunk/lib/Perlanet/IronMan.pm	2012-09-22 11:07:51 UTC (rev 9945)
@@ -179,9 +179,6 @@
 
     my $posts = $post->entries;
 
-    #print(Dumper($posts));
-    #exit;
-
     foreach my $post (@{$posts}) {
 
         # Set the summary text to the summary or body if not supplied
@@ -197,9 +194,6 @@
 
         $summary = $truncated;
 
-        #print(Dumper($post));
-        #exit;
-
         # Can't store a post if we can't work out the URL to link to it.
         unless(defined($post->_entry->link)) {
             print("ERROR.  Can't deal with lack of URL returned from XML::Feed::Entry for feed '" . $post->feed->url . "'\n");
@@ -230,9 +224,6 @@
             Carp::cluck("ERROR: Post is:\n" . Dumper($post) . "\n");
             Carp::cluck("ERROR: Link URL is '" . $post->_entry->link . "'\n");
         };
-
-    #print(Dumper($post));
-
     }
 };