From: Matt S Trout <mst@shadowcat.co.uk>
Date: Fri, 14 Feb 2014 07:15:44 +0000 (+0000)
Subject: shell tweaks
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2e60bb6402bd8feea2594cce92b20f7f090d7586;p=scpubgit%2FDKit.git

shell tweaks
---

diff --git a/bin/dx-shell b/bin/dx-shell
index e7b1b58..20a5b6b 100644
--- a/bin/dx-shell
+++ b/bin/dx-shell
@@ -73,8 +73,8 @@ my $rl = Term::ReadLine->new;
 
 my $cmd;
 
-while (defined(my $line = $rl->readline(length($cmd)?'+ ':'$ '))) {
-  $cmd .= $line;
+while (defined(my $line = $rl->readline(length($cmd)?'> ':'$ '))) {
+  $cmd .= "${line}\n";
   if ($tcl->call(info => complete => $cmd)) {
     $tcl->Eval($cmd);
     $cmd = '';