Fix broken set/sys_qra command

diff --git a/Changes b/Changes
index 1a6121efe62306d572e903f200e128b71e9590e8..c24b10bc7af500b8b2077adc1f62ab581105e2c1 100644 (file)
--- 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
 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=======================================================================
 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 43260d1cf9ec62dbb64b519ba5340c0db2fa3234..9fc66fc192aa1c046d8010db9e1a56df6434892c 100644 (file)
--- 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;
 
 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 6a370ac66118e71231f838dbedfb8c868e66e714..5e5c54f01346831265aa3d367af49d39a37e1ab0 100644 (file)
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
 
 $version = '1.54';
 $subversion = '0';
 
 $version = '1.54';
 $subversion = '0';

-$build = '62';
+$build = '63';

 
 1;
 
 1;