www/server/source/planetrss planetrss.pl

[Pavel Kharitonov]

CVSROOT:        /web/www
Module name:    www
Changes by:     Pavel Kharitonov <ineiev>       15/04/16 07:42:30

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

Log message:
        Fix <h*> removal.

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

Patches:
Index: planetrss.pl
===================================================================
RCS file: /web/www/www/server/source/planetrss/planetrss.pl,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -b -r1.23 -r1.24
--- planetrss.pl        9 Mar 2015 08:13:35 -0000       1.23
+++ planetrss.pl        16 Apr 2015 07:42:27 -0000      1.24
@@ -31,7 +31,7 @@
 # Provides argument handling.
 use Getopt::Long;
 
-my $Version = "1.10";
+my $Version = "1.11";
 my $default_lines = 3;
 my $default_length = 200;
 # GNU Remotecontrol Newsletter doesn't produce meaningful feeds;
@@ -199,7 +199,7 @@
     $desc = strip_tag ($desc, "em") unless $em == 1;
     $desc = strip_tag ($desc, "i") unless $i == 1;
     $desc = strip_tag ($desc, "img") unless $img == 1;
-    $desc = strip_tag ($desc, "h\d") unless $h == 1;
+    $desc = strip_tag ($desc, 'h\d') unless $h == 1;
     $desc = strip_tag ($desc, "hr") unless $hr == 1;
     $desc = strip_tag ($desc, "p") unless $p == 1;
     $desc = strip_tag ($desc, "pre") unless $pre == 1;