added inscript test to selected commands

[spider.git] / perl / DXCommandmode.pm

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 7b69ad22c1b17d4e462f588b196418e5121c04d0..80a31ed517a6829d91c4cf5ae034478403cf711f 100644 (file)
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -958,7 +958,7 @@ sub do_entry_stuff
                my $loc = $self->{loc} || confess "local var gone missing" ;
                if ($line eq "\032" || $line eq '%1A' || uc $line eq "/EX") {
                        no strict 'refs';
-                       push @out, $loc->{endaction}($self);
+                       push @out, &{$loc->{endaction}}($self);          # like this for < 5.8.0
                        $self->func(undef);
                        $self->state('prompt');
                } elsif ($line eq "\031" || uc $line eq "/ABORT" || uc $line eq "/QUIT") {