www/server/source/planetrss planetrss.pl

[Pavel Kharitonov]

CVSROOT:        /web/www
Module name:    www
Changes by:     Pavel Kharitonov <ineiev>       14/01/13 06:21:47

Modified files:
        server/source/planetrss: planetrss.pl 

Log message:
        Fixup spurious &amp;amp;s.

CVSWeb URLs:
http://web.cvs.savannah.gnu.org/viewcvs/www/server/source/planetrss/planetrss.pl?cvsroot=www&r1=1.18&r2=1.19

Patches:
Index: planetrss.pl
===================================================================
RCS file: /web/www/www/server/source/planetrss/planetrss.pl,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -b -r1.18 -r1.19
--- planetrss.pl        9 Dec 2013 08:11:41 -0000       1.18
+++ planetrss.pl        13 Jan 2014 06:21:47 -0000      1.19
@@ -29,7 +29,7 @@
 # Provides argument handling.
 use Getopt::Long;
 
-my $Version = "1.5";
+my $Version = "1.6";
 my $default_lines = 3;
 my $default_length = 200;
 my $head = "<!-- Autogenerated by planetrss.pl ".$Version." -->\n";
@@ -128,7 +128,7 @@
   {
     print "PlanetRSS ".$Version."
 Copyright (C) 2011 Shailesh Ghadge
-Copyright (C) 2013 Free Software Foundation, Inc.
+Copyright (C) 2013, 2014 Free Software Foundation, Inc.
 
 This program is free software: you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
@@ -203,6 +203,7 @@
     $desc =~ s/&lt;/</gi; $desc =~ s/&gt;/>/gi;
     $desc =~ s/&amp;lt;/</gi; $desc =~ s/&amp;gt;/>/gi;
     $desc =~ s/&quot;/"/gi;
+    $desc =~ s/(&amp;)amp;/$1/gi;
     $desc =~ s/\s\s+/ /g;
 
     # Empty description: no "more", no ":".