eliminate warning generated in t/16-convert-mult-categories.t

diff --git a/lib/XML/Feed/Format/RSS.pm b/lib/XML/Feed/Format/RSS.pm
index a147bc1..d463d92 100644 (file)
--- a/lib/XML/Feed/Format/RSS.pm
+++ b/lib/XML/Feed/Format/RSS.pm
@@ -203,8 +203,10 @@ 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+$//;
+        }
         
     }
 }