Update of /cvsroot/monetdb/clients/src/perl/DBD
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv19561/DBD
Modified Files:
Tag: Clients_1-20
monetdb.pm
Log Message:
mapi_connect needs a database argument for some time now, ie time to bring
perl in line.
Index: monetdb.pm
===================================================================
RCS file: /cvsroot/monetdb/clients/src/perl/DBD/monetdb.pm,v
retrieving revision 1.2
retrieving revision 1.2.6.1
diff -u -d -r1.2 -r1.2.6.1
--- monetdb.pm 3 Jan 2007 12:18:06 -0000 1.2
+++ monetdb.pm 20 Oct 2007 19:14:18 -0000 1.2.6.1
@@ -56,8 +56,9 @@
my $port = $dsn{port} || 50000;
$user ||= 'monetdb';
$password ||= 'monetdb';
+ my $db = $dsn{database} || 'demo';
- my $cxn = eval { MonetDB::CLI->connect($host, $port, $user, $password,
$lang) };
+ my $cxn = eval { MonetDB::CLI->connect($host, $port, $user, $password,
$lang, $db) };
return $drh->set_err(-1, $@) if $@;
my ($outer, $dbh) = DBI::_new_dbh($drh, { Name => $dsn });
-------------------------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc.
Still grepping through log files to find problems? Stop.
Now Search log events and configuration files using AJAX and a browser.
Download your FREE copy of Splunk now >> http://get.splunk.com/
_______________________________________________
Monetdb-checkins mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/monetdb-checkins
