kopia lustrzana https://github.com/Hamlib/Hamlib
Modify perltest.pl for multi-line rig_error return
https://github.com/Hamlib/Hamlib/issues/526pull/527/head
rodzic
e589e078a1
commit
92492c4627
|
@ -57,7 +57,8 @@ print "strength:\t\t$lvl\n";
|
||||||
$chan = new Hamlib::channel($Hamlib::RIG_VFO_A);
|
$chan = new Hamlib::channel($Hamlib::RIG_VFO_A);
|
||||||
|
|
||||||
$rig->get_channel($chan,1);
|
$rig->get_channel($chan,1);
|
||||||
print "get_channel status:\t$rig->{error_status} = ".Hamlib::rigerror($rig->{error_status})."\n";
|
@tokens = split("\n",Hamlib::rigerror($rig->{error_status}));
|
||||||
|
print "get_channel status:\t$rig->{error_status} = ".$tokens[0]."\n";
|
||||||
|
|
||||||
print "VFO:\t\t\t".Hamlib::rig_strvfo($chan->{vfo}).", $chan->{freq}\n";
|
print "VFO:\t\t\t".Hamlib::rig_strvfo($chan->{vfo}).", $chan->{freq}\n";
|
||||||
|
|
||||||
|
|
Ładowanie…
Reference in New Issue