added inscript test to selected commands

[spider.git] / perl / Script.pm

diff --git a/perl/Script.pm b/perl/Script.pm
index 8fdd806496c34df3c684abad02b98b46326fb6d7..24593aee92fa22e85b436a2efca7c134b467cdc3 100644 (file)
--- a/perl/Script.pm
+++ b/perl/Script.pm
@@ -57,7 +57,9 @@ sub run
        my $dxchan = shift;
        foreach my $l (@{$self->{lines}}) {
                unless ($l =~ /^\s*\#/ || $l =~ /^\s*$/) {
+                       $dxchan->inscript(1);
                        my @out = DXCommandmode::run_cmd($dxchan, $l);
+                       $dxchan->inscript(0);
                        if ($dxchan->can('send_ans')) {
                                $dxchan->send_ans(@out);
                        } else {