From ecadb03ed6017dc782ef6a36088150cc52d6a1a3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
<grubba@grubba.org>
Date: Wed, 14 Jan 1998 22:45:44 +0100
Subject: [PATCH] More paranoid.
Rev: lib/modules/Sql.pmod/sql.pike:1.16
---
lib/modules/Sql.pmod/sql.pike | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/lib/modules/Sql.pmod/sql.pike b/lib/modules/Sql.pmod/sql.pike
index d72e584432..4bddf7a656 100644
--- a/lib/modules/Sql.pmod/sql.pike
+++ b/lib/modules/Sql.pmod/sql.pike
@@ -1,5 +1,5 @@
/*
- * $Id: sql.pike,v 1.15 1997/09/02 22:24:27 grubba Exp $
+ * $Id: sql.pike,v 1.16 1998/01/14 21:45:44 grubba Exp $
*
* Implements the generic parts of the SQL-interface
*
@@ -8,7 +8,7 @@
//.
//. File: sql.pike
-//. RCSID: $Id: sql.pike,v 1.15 1997/09/02 22:24:27 grubba Exp $
+//. RCSID: $Id: sql.pike,v 1.16 1998/01/14 21:45:44 grubba Exp $
//. Author: Henrik Grubbstr�m (grubba@infovav.se)
//.
//. Synopsis: Implements the generic parts of the SQL-interface.
@@ -125,7 +125,7 @@ void create(void|string|object host, void|string db,
foreach(program_names || get_dir(Sql->dirname), string program_name) {
if ((sizeof(program_name / "_result") == 1) &&
(sizeof(program_name / ".pike") > 1) &&
- (program_name != "sql.pike")) {
+ (program_name[..7] != "sql.pike")) {
/* Don't call ourselves... */
array(mixed) err;
--
GitLab