From 61dde5e9f57dc5aeeda6a1d0b7f103975dac9309 Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Wed, 15 Jul 2020 21:47:03 -0700
Subject: [PATCH] Plugins/Plang: use output_value to print values

---
 Plugins/Plang.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Plugins/Plang.pm b/Plugins/Plang.pm
index 6b09316f..dc84ca94 100644
--- a/Plugins/Plang.pm
+++ b/Plugins/Plang.pm
@@ -63,7 +63,7 @@ sub cmd_plang {
     my $result = $self->run($context->{arguments});
 
     # check to see if we need to append final result to output
-    $self->{output} .= $result->[1] if defined $result->[1];
+    $self->{output} .= $self->{plang}->{interpreter}->output_value($result) if defined $result->[1];
 
     # return the output
     return length $self->{output} ? $self->{output} : "No output.";
@@ -94,7 +94,7 @@ sub run {
     my $program    = $ast->[0];
     my $statements = $program->[1];
 
-    my $result;            # result of the final statement
+    my $result; # result of the final statement
 
     eval {
         # interpret the statements