From 8da884d53c22105c725623b2296cec38b2fcd0fb Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
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