updated shell code to register query commands with Tcl object

[scpubgit/DX.git] / lib / DX / ShellFrontend.pm

diff --git a/lib/DX/ShellFrontend.pm b/lib/DX/ShellFrontend.pm
index 1b91bf6..1b8c66e 100644 (file)
--- a/lib/DX/ShellFrontend.pm
+++ b/lib/DX/ShellFrontend.pm
@@ -57,6 +57,7 @@ sub process_mode_result {
 
 sub process_output_result {
   my ($self, $output) = @_;
+  $output .= "\n" unless $output =~ /\n$/;
   print $output;
 }