fix dx and import_cmd problems

[spider.git] / perl / DXCommandmode.pm

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index ad9baad05832ed2d087ee479f1d9a84a52acb519..35c92341d17cbc896a0a64d6941e9a3d156dea77 100644 (file)
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -1194,7 +1194,7 @@ sub import_cmd
                                                $dxchan->{priv} = $u->priv;
                                                $dxchan->{user} = $u;
                                                @out = $s->run($dxchan, 1);
-                                               $dxchan->{call} = $call;
+                                               $dxchan->{call} = $old;
                                                $dxchan->{priv} = $priv;
                                                $dxchan->{user} = $user;
                                        } else {