[Qsos-commits] qsos/libs/perl/QSOS-Document/lib/QSOS Document.pm

[Goneri Le Bouder]

CVSROOT:        /sources/qsos
Module name:    qsos
Changes by:     Goneri Le Bouder <goneri>       07/03/21 13:24:55

Modified files:
        libs/perl/QSOS-Document/lib/QSOS: Document.pm 

Log message:
        if a section is missiing, just print a WARNing

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/qsos/libs/perl/QSOS-Document/lib/QSOS/Document.pm?cvsroot=qsos&r1=1.22&r2=1.23

Patches:
Index: Document.pm
===================================================================
RCS file: /sources/qsos/qsos/libs/perl/QSOS-Document/lib/QSOS/Document.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -b -r1.22 -r1.23
--- Document.pm 20 Feb 2007 18:10:42 -0000      1.22
+++ Document.pm 21 Mar 2007 13:24:55 -0000      1.23
@@ -1,4 +1,4 @@
-# $Id: Document.pm,v 1.22 2007/02/20 18:10:42 goneri Exp $
+# $Id: Document.pm,v 1.23 2007/03/21 13:24:55 goneri Exp $
 #
 #  Copyright (C) 2006 Atos Origin 
 #
@@ -64,7 +64,7 @@
     return;
   }
   if (!exists $self->{section}->{$name}) {
-    print "ERR: no section called $name in $self->{file}\n";
+    print "WARN: no section called $name in $self->{file}\n";
     return;
   }
   if (ref $self->{section}->{$name} ne 'HASH') {