diff --git a/Plang b/Plang index df6f6a11..b1dc7032 160000 --- a/Plang +++ b/Plang @@ -1 +1 @@ -Subproject commit df6f6a11f5bd545e77774b2a883a9f7f5c7229fe +Subproject commit b1dc703205270a0471a86374f96f128cfb947bb7 diff --git a/Plugins/Plang.pm b/Plugins/Plang.pm index 1c0e65fd..6b09316f 100644 --- a/Plugins/Plang.pm +++ b/Plugins/Plang.pm @@ -104,7 +104,11 @@ sub run { if ($ins eq 'STMT') { $result = $self->{plang}->{interpreter}->statement($context, $node->[1]); - $self->{output} .= $result->[1] if $result->[0] eq 'STDOUT'; + if ($result->[0] eq 'STDOUT') { + $self->{output} .= $result->[1]; + $result = undef; + next; + } if ($result->[0] eq 'ERROR') { $self->{output} .= "Error: $result->[1]";