1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
Remove version number from perltest output so we can diff the output against a
static expected output file.
--- a/bindings/perltest.pl
+++ b/bindings/perltest.pl
@@ -2,7 +2,8 @@
use Hamlib;
-print "Perl $] test, version: $Hamlib::hamlib_version\n\n";
+# Debian: removed so the output doesn't depend on version numbers
+#print "Perl $] test, version: $Hamlib::hamlib_version\n\n";
#Hamlib::rig_set_debug($Hamlib::RIG_DEBUG_TRACE);
Hamlib::rig_set_debug($Hamlib::RIG_DEBUG_NONE);
@@ -54,8 +55,9 @@ $rig->set_level($Hamlib::RIG_LEVEL_VOX,
$lvl = $rig->get_level_i($Hamlib::RIG_LEVEL_VOX);
print "VOX level:\t\t$lvl\n";
-$lvl = $rig->get_level_i($Hamlib::RIG_LEVEL_STRENGTH);
-print "strength:\t\t$lvl\n";
+# Debian: removed because output is unstable
+#$lvl = $rig->get_level_i($Hamlib::RIG_LEVEL_STRENGTH);
+#print "strength:\t\t$lvl\n";
$chan = new Hamlib::channel($Hamlib::RIG_VFO_A);
|
