[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Qsos-commits] qsos/libs/perl/QSOS-Document/lib/QSOS Document.pm
From: |
Gonéri Le Bouder |
Subject: |
[Qsos-commits] qsos/libs/perl/QSOS-Document/lib/QSOS Document.pm |
Date: |
Fri, 19 May 2006 10:32:51 +0000 |
CVSROOT: /sources/qsos
Module name: qsos
Branch:
Changes by: Gonéri Le Bouder <address@hidden> 06/05/19 10:32:51
Modified files:
libs/perl/QSOS-Document/lib/QSOS: Document.pm
Log message:
more clear error message
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/qsos/qsos/libs/perl/QSOS-Document/lib/QSOS/Document.pm.diff?tr1=1.18&tr2=1.19&r1=text&r2=text
Patches:
Index: qsos/libs/perl/QSOS-Document/lib/QSOS/Document.pm
diff -u qsos/libs/perl/QSOS-Document/lib/QSOS/Document.pm:1.18
qsos/libs/perl/QSOS-Document/lib/QSOS/Document.pm:1.19
--- qsos/libs/perl/QSOS-Document/lib/QSOS/Document.pm:1.18 Fri May 5
13:28:02 2006
+++ qsos/libs/perl/QSOS-Document/lib/QSOS/Document.pm Fri May 19 10:32:51 2006
@@ -1,4 +1,4 @@
-# $Id: Document.pm,v 1.18 2006/05/05 13:28:02 goneri Exp $
+# $Id: Document.pm,v 1.19 2006/05/19 10:32:51 goneri Exp $
#
# Copyright (C) 2006 Atos Origin
#
@@ -84,7 +84,9 @@
$deep = 0 unless $deep;
- die unless ($elt->atts->{name});
+ unless ($elt->atts->{name}) {
+ die "ERR: Attribute without name";
+ }
my $h = {
name => $elt->atts->{name},