[interchange-cvs] interchange - racke modified lib/Vend/Data.pm
interchange-core@interchange.redhat.com
interchange-core@interchange.redhat.com
Thu Oct 18 07:32:01 2001
User: racke
Date: 2001-10-18 11:31:40 GMT
Modified: lib/Vend Tag: STABLE_4_8-branch Data.pm
Log:
give an appropriate error message if a class couldn't be found
Revision Changes Path
No revision
No revision
2.0.2.2 +4 -1 interchange/lib/Vend/Data.pm
rev 2.0.2.2, prev_rev 2.0.2.1
Index: Data.pm
===================================================================
RCS file: /anon_cvs/repository/interchange/lib/Vend/Data.pm,v
retrieving revision 2.0.2.1
retrieving revision 2.0.2.2
diff -u -r2.0.2.1 -r2.0.2.2
--- Data.pm 2001/09/26 14:07:03 2.0.2.1
+++ Data.pm 2001/10/18 11:31:40 2.0.2.2
@@ -1,6 +1,6 @@
# Vend::Data - Interchange databases
#
-# $Id: Data.pm,v 2.0.2.1 2001/09/26 14:07:03 racke Exp $
+# $Id: Data.pm,v 2.0.2.2 2001/10/18 11:31:40 racke Exp $
#
# Copyright (C) 1996-2001 Red Hat, Inc. <interchange@redhat.com>
#
@@ -671,6 +671,9 @@
next;
}
my $class = $db_config{$data->{Class}}->{Class};
+ unless ($class) {
+ die errmsg("no class found for database %s", $name);
+ }
$Vend::Database{$name} =
new $class ($data);
}