add missing return call fixing the failures introduced when trying to fix 73160

[catagits/XML-Feed.git] / lib / XML / Feed / Format / RSS.pm

diff --git a/lib/XML/Feed/Format/RSS.pm b/lib/XML/Feed/Format/RSS.pm
index a147bc1..ab150ad 100644 (file)
--- a/lib/XML/Feed/Format/RSS.pm
+++ b/lib/XML/Feed/Format/RSS.pm
@@ -203,9 +203,11 @@ sub link {
         my $link = $entry->{entry}{link} ||
             $entry->{entry}{permaLink} ||
             $entry->{entry}{guid};
-        $link =~ s/^\s+//;
-        $link =~ s/\s+$//;
-        
+        if (defined $link) {
+            $link =~ s/^\s+//;
+            $link =~ s/\s+$//;
+        }
+        return $link;
     }
 }