[interchange-cvs] interchange - racke modified
lib/Vend/Table/GDBM.pm
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Fri Mar 12 07:46:01 EST 2004
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);
More information about the interchange-cvs
mailing list