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

[interchange-cvs at icdevgroup.org]

User:      racke
Date:      2004-03-12 12:46:01 GMT
Modified:  lib/Vend/Table GDBM.pm
Log:
fix call to errmsg

Revision  Changes    Path
2.12      +3 -3      interchange/lib/Vend/Table/GDBM.pm


rev 2.12, prev_rev 2.11
Index: GDBM.pm
===================================================================
RCS file: /anon_cvs/repository/interchange/lib/Vend/Table/GDBM.pm,v
retrieving revision 2.11
retrieving revision 2.12
diff -u -r2.11 -r2.12
--- GDBM.pm	19 Oct 2003 17:01:47 -0000	2.11
+++ GDBM.pm	12 Mar 2004 12:46:01 -0000	2.12
@@ -1,6 +1,6 @@
 # Vend::Table::GDBM - Access an Interchange table stored in a GDBM file
 #
-# $Id: GDBM.pm,v 2.11 2003/10/19 17:01:47 mheins Exp $
+# $Id: GDBM.pm,v 2.12 2004/03/12 12:46:01 racke Exp $
 #
 # Copyright (C) 2002-2003 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -30,7 +30,7 @@
 use Vend::Table::Common;
 
 @ISA = qw(Vend::Table::Common);
-$VERSION = substr(q$Revision: 2.11 $, 10);
+$VERSION = substr(q$Revision: 2.12 $, 10);
 
 sub new {
 	my ($class, $obj) = @_;
@@ -55,7 +55,7 @@
 	my $flags = GDBM_NEWDB;
 	$flags |= GDBM_FAST if $Fast_write;
 	my $dbm = tie(%$tie, 'GDBM_File', $filename, $flags, $File_permission_mode)
-		or die errmsg("%s %s: %s\n", errmsg("create"), $filename, $!);
+		or die ::errmsg("%s %s: %s\n", ::errmsg("create"), $filename, $!);
 
 	$tie->{'c'} = join("\t", @$columns);