* Missed DebianBugs.pl in the previous merge

[infobot.git] / src / Modules / Rss.pl

diff --git a/src/Modules/Rss.pl b/src/Modules/Rss.pl
index 153d07e2e5b66f175c78efc8a15907a0538b3d8d..1d6b6911e1c5932c81ce1849f88ee328438b34fb 100644 (file)
--- a/src/Modules/Rss.pl
+++ b/src/Modules/Rss.pl
@@ -10,31 +10,20 @@ package Rss;
 use strict;
 
 sub Rss::Titles {
-       my @list;
-
-       foreach (@_) {
-               next unless (/<title>(.*?)<\/title>/);
-               my $title = $1;
-               $title =~ s/&amp\;/&/g;
-               push(@list, $title);
-       }
-
-       return @list;
+    return join( ' ', @_ ) =~ m/<title>\s*(.*?)\s*<\/title>/gi;
 }
 
 sub Rss::Rss {
-       my ($message) = @_;
-       my @results = &::getURL($message);
-       my $retval  = "i could not get the rss feed.";
+    my ($message) = @_;
+    my @results   = &::getURL($message);
+    my $retval    = "i could not get the rss feed.";
 
-       if (scalar @results) {
-               my $prefix      = "Titles: ";
-               my @list        = &Rss::Titles(@results);
-               $retval         = &::formListReply(0, $prefix, @list);
-       }
+    my @list = &Rss::Titles(@results) if ( scalar @results );
+    $retval = &::formListReply( 0, 'Titles: ', @list ) if ( scalar @list );
 
-       &::performStrictReply($retval);
+    &::performStrictReply($retval);
 }
 
 1;
-# vim: ts=2 sw=2
+
+# vim:ts=4:sw=4:expandtab:tw=80