[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>       06/11/10 22:34:22

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

Log message:
        Better error message

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

Patches:
Index: Document.pm
===================================================================
RCS file: /sources/qsos/qsos/libs/perl/QSOS-Document/lib/QSOS/Document.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -b -r1.20 -r1.21
--- Document.pm 14 Jun 2006 12:23:43 -0000      1.20
+++ Document.pm 10 Nov 2006 22:34:22 -0000      1.21
@@ -1,4 +1,4 @@
-# $Id: Document.pm,v 1.20 2006/06/14 12:23:43 goneri Exp $
+# $Id: Document.pm,v 1.21 2006/11/10 22:34:22 goneri Exp $
 #
 #  Copyright (C) 2006 Atos Origin 
 #
@@ -85,7 +85,7 @@
   $deep = 0 unless $deep;
 
   unless ($elt->atts->{name}) {
-    die "ERR: Attribute without name";
+    die "ERR: Attribute without name (".$elt->first_child('comment').")";
   }
 
   my $h = {