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

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Wed Oct 15 19:03:20 EDT 2003


User:      racke
Date:      2003-10-15 22:03:20 GMT
Modified:  lib/Vend/Table Shadow.pm
Log:
relative errmsg calls don't work as reported by plasser at hexagon.at

Revision  Changes    Path
1.42      +5 -5      interchange/lib/Vend/Table/Shadow.pm


rev 1.42, prev_rev 1.41
Index: Shadow.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Table/Shadow.pm,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -r1.41 -r1.42
--- Shadow.pm	8 Oct 2003 11:24:07 -0000	1.41
+++ Shadow.pm	15 Oct 2003 22:03:20 -0000	1.42
@@ -1,6 +1,6 @@
 # Vend::Table::Shadow - Access a virtual "Shadow" table
 #
-# $Id: Shadow.pm,v 1.41 2003/10/08 11:24:07 racke Exp $
+# $Id: Shadow.pm,v 1.42 2003/10/15 22:03:20 racke Exp $
 #
 # Copyright (C) 2002-2003 Stefan Hornburg (Racke) <racke at linuxia.de>
 #
@@ -20,7 +20,7 @@
 # MA  02111-1307  USA.
 
 package Vend::Table::Shadow;
-$VERSION = substr(q$Revision: 1.41 $, 10);
+$VERSION = substr(q$Revision: 1.42 $, 10);
 
 # CREDITS
 #
@@ -288,7 +288,7 @@
 		my $qref = $s->_parse_sql($opt->{query});
 
 		if (@{$qref->{tables}} > 1) {
-			die errmsg("Vend::Table::Shadow::query can handle only one table");
+			die ::errmsg("Vend::Table::Shadow::query can handle only one table");
 		}
 
 		my $table = $qref->{tables}->[0];
@@ -298,7 +298,7 @@
 			# pass query to other table, but preserve the query info
 			$opt->{queryinfo} = $qref;
 			unless ($db = Vend::Data::database_exists_ref($table)) {
-				die errmsg("Table %s not found", $table);
+				die ::errmsg("Table %s not found", $table);
 			}
 			return $db->query($opt, $text, @arg);
 		} elsif ($qref->{command} ne 'SELECT') {
@@ -437,7 +437,7 @@
 	};
 	
 	if ($@) {
-		die errmsg("Bad SQL statement: %s\nQuery was: %s", $@, $query);
+		die ::errmsg("Bad SQL statement: %s\nQuery was: %s", $@, $query);
 	}
 
 	$sqlinfo{command} = $stmt->command();








More information about the interchange-cvs mailing list