shell tweaks

[scpubgit/DKit.git] / bin / dx-shell

diff --git a/bin/dx-shell b/bin/dx-shell
index e7b1b58..20a5b6b 100644 (file)
--- 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 = '';