[interchange-cvs] interchange - racke modified lib/Vend/Data.pm

[interchange-core@interchange.redhat.com]

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);
 	}