Changeset: abf46d8d8031 for MonetDB
URL: http://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=abf46d8d8031
Modified Files:
clients/perl/mclient.pl
Branch: Feb2013
Log Message:
mclient.pl: allow overriding default port
diffs (15 lines):
diff --git a/clients/perl/mclient.pl b/clients/perl/mclient.pl
--- a/clients/perl/mclient.pl
+++ b/clients/perl/mclient.pl
@@ -20,9 +20,10 @@
use Mapi;
my $db = shift || '';
+my $port = shift || 50000;
my ($monet, $line);
-$monet = new Mapi('localhost', 50000, 'monetdb', 'monetdb', 'sql', $db, 0);
+$monet = new Mapi('localhost', $port, 'monetdb', 'monetdb', 'sql', $db, 0);
print "> ";
while ( !(($line=<>) =~ /\q/) ){
_______________________________________________
checkin-list mailing list
checkin-list@monetdb.org
http://mail.monetdb.org/mailman/listinfo/checkin-list
