X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=bin%2Fdx-shell;h=20a5b6bf5d30f31ec3b221c0862fa6f570095695;hb=2e60bb6402bd8feea2594cce92b20f7f090d7586;hp=e7b1b580244f071a6b824b712798e9de8defa051;hpb=2c467394ea6fef5949570c03c467a2fe3361d81e;p=scpubgit%2FDKit.git

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 = '';