Skip to content
Snippets Groups Projects
Commit ecadb03e authored by Henrik (Grubba) Grubbström's avatar Henrik (Grubba) Grubbström
Browse files

More paranoid.

Rev: lib/modules/Sql.pmod/sql.pike:1.16
parent 28b150b2
No related branches found
No related tags found
No related merge requests found
/* /*
* $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 * Implements the generic parts of the SQL-interface
* *
...@@ -8,7 +8,7 @@ ...@@ -8,7 +8,7 @@
//. //.
//. File: sql.pike //. 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 Grubbstrm (grubba@infovav.se) //. Author: Henrik Grubbstrm (grubba@infovav.se)
//. //.
//. Synopsis: Implements the generic parts of the SQL-interface. //. Synopsis: Implements the generic parts of the SQL-interface.
...@@ -125,7 +125,7 @@ void create(void|string|object host, void|string db, ...@@ -125,7 +125,7 @@ void create(void|string|object host, void|string db,
foreach(program_names || get_dir(Sql->dirname), string program_name) { foreach(program_names || get_dir(Sql->dirname), string program_name) {
if ((sizeof(program_name / "_result") == 1) && if ((sizeof(program_name / "_result") == 1) &&
(sizeof(program_name / ".pike") > 1) && (sizeof(program_name / ".pike") > 1) &&
(program_name != "sql.pike")) { (program_name[..7] != "sql.pike")) {
/* Don't call ourselves... */ /* Don't call ourselves... */
array(mixed) err; array(mixed) err;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment