www/server/source/planetrss planetrss.pl

[Ineiev]

CVSROOT:        /web/www
Module name:    www
Changes by:     Ineiev <ineiev> 18/09/27 03:08:09

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

Log message:
        Die unless have some feeds.

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

Patches:
Index: planetrss.pl
===================================================================
RCS file: /web/www/www/server/source/planetrss/planetrss.pl,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -b -r1.28 -r1.29
--- planetrss.pl        7 May 2018 09:17:55 -0000       1.28
+++ planetrss.pl        27 Sep 2018 07:08:08 -0000      1.29
@@ -29,7 +29,7 @@
 # Provides argument handling.
 use Getopt::Long;
 
-my $Version = "1.17";
+my $Version = "1.18";
 my $default_lines = 3;
 my $default_length = 200;
 # We couldn't make this script extract passages that would be suitable
@@ -143,7 +143,7 @@
   {
     print "PlanetRSS ".$Version."
 Copyright (C) 2011 Shailesh Ghadge
-Copyright (C) 2013, 2014, 2015, 2017 Free Software Foundation, Inc.
+Copyright (C) 2013, 2014, 2015, 2017, 2018 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
@@ -169,6 +169,8 @@
 
 $PGparser->parse ($feeds);
 
+die unless $PGparser->count;
+
 print $head;
 
 my $skipped = 0;