cvs commit: www manage_news.pl

lizardo at linuxfromscratch.org lizardo at linuxfromscratch.org
Tue Sep 9 15:57:21 PDT 2003


lizardo     03/09/09 16:57:21

  Modified:    .        manage_news.pl
  Log:
  Fixed incorrect handling of error messages.
  
  Revision  Changes    Path
  1.8       +9 -5      www/manage_news.pl
  
  Index: manage_news.pl
  ===================================================================
  RCS file: /home/cvsroot/www/manage_news.pl,v
  retrieving revision 1.7
  retrieving revision 1.8
  diff -u -r1.7 -r1.8
  --- manage_news.pl	8 Sep 2003 18:53:49 -0000	1.7
  +++ manage_news.pl	9 Sep 2003 22:57:21 -0000	1.8
  @@ -17,7 +17,7 @@
   # along with this program; if not, write to the Free Software
   # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
   
  -# $Id: manage_news.pl,v 1.7 2003/09/08 18:53:49 gerard Exp $
  +# $Id: manage_news.pl,v 1.8 2003/09/09 22:57:21 lizardo Exp $
   
   use warnings;
   use strict;
  @@ -186,11 +186,15 @@
       '<h2 id="changelog">Latest CVS changes:</h2>' . "\n" if $section eq "general";
   }
   
  -#print STDERR "Errors: " . $parser->results->errors . "\n";
  -print "- " . $_ foreach ($parser->results->errors);
  +if ($parser->results->errors) {
  +    print STDERR "Errors: " . $parser->results->errors . "\n";
  +    print STDERR "- " . $_ foreach ($parser->results->errors);
  +}
   
  -#print STDERR "Warnings: " . $parser->results->warnings . "\n";
  -print "- " . $_ foreach ($parser->results->warnings);
  +if ($parser->results->warnings) {
  +    print STDERR "Warnings: " . $parser->results->warnings . "\n";
  +    print STDERR "- " . $_ foreach ($parser->results->warnings);
  +}
   
   ##########################
   # HTML parser subroutines
  
  
  



More information about the website mailing list