Modify perltest.pl for multi-line rig_error return

https://github.com/Hamlib/Hamlib/issues/526
pull/527/head
Michael Black W9MDB 2021-02-04 07:23:53 -06:00
rodzic e589e078a1
commit 92492c4627
1 zmienionych plików z 2 dodań i 1 usunięć

Wyświetl plik

@ -57,7 +57,8 @@ print "strength:\t\t$lvl\n";
$chan = new Hamlib::channel($Hamlib::RIG_VFO_A);
$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";