From: Dirk Koopman <djk@tobit.co.uk>
Date: Fri, 22 Jun 2007 19:18:09 +0000 (+0100)
Subject: Fix broken set/sys_qra command
X-Git-Tag: 1.55~152
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=8da884d53c22105c725623b2296cec38b2fcd0fb;p=spider.git

Fix broken set/sys_qra command
---

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;