line_mediator.pl indicate mode if DEBUG

git-svn-id: https://ws10smt.googlecode.com/svn/trunk@295 ec762483-ff6d-05da-a07a-a48fb63a330f

1 files changed, 3 insertions, 0 deletions

diff --git a/vest/line_mediator.pl b/vest/line_mediator.pl
index 4e899c39..2b8fa77c 100755
--- a/vest/line_mediator.pl
+++ b/vest/line_mediator.pl
@@ -43,6 +43,7 @@ if ($serial || $snake) {
     my $c1p=open2($R1,$W1,@c1); # Open2 R W backward from Open3.
     my $c2p=open2($R2,$W2,@c2);
     if ($snake) {
+        info("SNAKE mode\n");
         while(<STDIN>) {
             info("IN:",$_);
             lineto($W1,$_);
@@ -57,6 +58,7 @@ if ($serial || $snake) {
             lineto(*STDOUT,$_);
         }
     } else {
+        info("SERIAL mode\n");
         while(<$R1>) {
             info("1:",$_);
             lineto($W2,$_);
@@ -66,6 +68,7 @@ if ($serial || $snake) {
         }
     }
 } else {
+    info("DIRECT mode\n");
     my @rw1=POSIX::pipe();
     my @rw2=POSIX::pipe();
     my $pid=undef;