From 8da884d53c22105c725623b2296cec38b2fcd0fb Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Fri, 22 Jun 2007 20:18:09 +0100 Subject: [PATCH] Fix broken set/sys_qra command --- Changes | 1 + cmd/set/sys_qra.pl | 3 ++- perl/Version.pm | 2 +- 3 files changed, 4 insertions(+), 2 deletions(-) diff --git a/Changes b/Changes index 1a6121ef..c24b10bc 100644 --- a/Changes +++ b/Changes @@ -2,6 +2,7 @@ 1. Fix Alias for sh/mydx (so it isn't the same as sh/myfdx). 2. Fix sh/c/n uninitialised variable message 3. Fix (and improve) sh/newc gb7 problem +4. Fix broken set/sys_qra command 21Jun06======================================================================= 1. merge back SIMPLEROUTE branch to issue as official 1.54. 18Jun06======================================================================= diff --git a/cmd/set/sys_qra.pl b/cmd/set/sys_qra.pl index 43260d1c..9fc66fc1 100644 --- a/cmd/set/sys_qra.pl +++ b/cmd/set/sys_qra.pl @@ -8,4 +8,5 @@ my ($self, $line) = @_; return (1, $self->msg('e5')) if $self->priv < 9; -return (1, run_cmd("set/qra $main::mycall")); +my @out = run_cmd($self, "set/qra $line"); +return (1, run_cmd($main::me, "set/qra $line")); diff --git a/perl/Version.pm b/perl/Version.pm index 6a370ac6..5e5c54f0 100644 --- a/perl/Version.pm +++ b/perl/Version.pm @@ -11,6 +11,6 @@ use vars qw($version $subversion $build); $version = '1.54'; $subversion = '0'; -$build = '62'; +$build = '63'; 1; -- 2.43.0