From b5c9050b82ee72316df221429641e46df0b5de1a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
<grubba@grubba.org>
Date: Fri, 3 Jul 1998 13:43:55 +0200
Subject: [PATCH] Changed to support '/''s in the host specification.
Rev: lib/modules/Sql.pmod/sql.pike:1.19
---
lib/modules/Sql.pmod/sql.pike | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/lib/modules/Sql.pmod/sql.pike b/lib/modules/Sql.pmod/sql.pike
index 1974ba5ba2..511e5aa036 100644
--- a/lib/modules/Sql.pmod/sql.pike
+++ b/lib/modules/Sql.pmod/sql.pike
@@ -1,5 +1,5 @@
/*
- * $Id: sql.pike,v 1.18 1998/06/17 13:01:48 grubba Exp $
+ * $Id: sql.pike,v 1.19 1998/07/03 11:43:55 grubba Exp $
*
* Implements the generic parts of the SQL-interface
*
@@ -8,7 +8,7 @@
//.
//. File: sql.pike
-//. RCSID: $Id: sql.pike,v 1.18 1998/06/17 13:01:48 grubba Exp $
+//. RCSID: $Id: sql.pike,v 1.19 1998/07/03 11:43:55 grubba Exp $
//. Author: Henrik Grubbström (grubba@idonex.se)
//.
//. Synopsis: Implements the generic parts of the SQL-interface.
@@ -120,8 +120,8 @@ void create(void|string|object host, void|string db,
arr = host/"/";
if (sizeof(arr) > 1) {
if (!db) {
- db = arr[1..]*"/";
- host = arr[0];
+ db = arr[-1];
+ host = arr[..sizeof(arr)-2]*"/";
}
}
}
--
GitLab