mirror
/
Hamlib
kopia lustrzana https://github.com/Hamlib/Hamlib
1
0
Forkuj 0
Kod Zgłoszenia Projekty Wydania Wiki Aktywność

Remove bad commit and fix perltest.pl check

pull/224/head
Michael Black 2020-03-29 23:47:38 -05:00
rodzic b040803765
commit f89ef8fffb
1 zmienionych plików z 5 dodań i 6 usunięć
Pokaż statystyki Ściągnij plik aktualizacji Ściągnij plik porównania Expand all files Collapse all files

11
bindings/perltest.pl
Wyświetl plik

@ -1,5 +1,4 @@
#!/usr/bin/perl #!/usr/bin/perl -Iblib/arch -Iblib/lib
##!/usr/bin/perl -Iblib/arch -Iblib/lib
use Hamlib; use Hamlib;
@ -50,10 +49,10 @@ print "get_info:\t\t$inf\n";
$rig->set_level("VOX", 1); $rig->set_level("VOX", 1);
$lvl = $rig->get_level_i("VOX"); $lvl = $rig->get_level_i("VOX");
print "VOX level:\t\t$lvl\n"; print "VOX delay:\t\t$lvl\n";
$rig->set_level($Hamlib::RIG_LEVEL_VOX, 5); $rig->set_level($Hamlib::RIG_LEVEL_VOXDELAY, 5);
$lvl = $rig->get_level_i($Hamlib::RIG_LEVEL_VOX); $lvl = $rig->get_level_i($Hamlib::RIG_LEVEL_VOXDELAY);
print "VOX level:\t\t$lvl\n"; print "VOX delay:\t\t$lvl\n";
$lvl = $rig->get_level_i($Hamlib::RIG_LEVEL_STRENGTH); $lvl = $rig->get_level_i($Hamlib::RIG_LEVEL_STRENGTH);
print "strength:\t\t$lvl\n"; print "strength:\t\t$lvl\n";