X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FScript.pm;h=24593aee92fa22e85b436a2efca7c134b467cdc3;hb=3196486ff0a78459e1b88b3847d255a62fd17895;hp=8fdd806496c34df3c684abad02b98b46326fb6d7;hpb=fe4f4e3751da3786d25df2fe2fba104523de095d;p=spider.git

diff --git a/perl/Script.pm b/perl/Script.pm
index 8fdd8064..24593aee 100644
--- 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 {