From 36f4e4d3e50f310e3833c3bc3720b59201d8dde5 Mon Sep 17 00:00:00 2001
From: Dave Cross <dave@dave.org.uk>
Date: Sun, 22 Aug 2010 08:17:38 +0100
Subject: [PATCH] Fixed broken OPML handling.

---
 lib/Perlanet/Trait/OPML.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/lib/Perlanet/Trait/OPML.pm b/lib/Perlanet/Trait/OPML.pm
index 37f2783..c62c44f 100644
--- a/lib/Perlanet/Trait/OPML.pm
+++ b/lib/Perlanet/Trait/OPML.pm
@@ -107,9 +107,8 @@ sub save_opml {
 around 'fetch_feeds' => sub {
   my $orig = shift;
   my ($self, @feeds) = @_;
-  return unless $self->has_opml;
   @feeds = $self->$orig(@feeds);
-  $self->update_opml(@feeds);
+  $self->update_opml(@feeds) if $self->has_opml;
   return @feeds;
 };