From f89ef8fffb4e3606bfe3fa4bed77b0c6bf033978 Mon Sep 17 00:00:00 2001
From: Michael Black <mdblack98@yahoo.com>
Date: Sun, 29 Mar 2020 23:47:38 -0500
Subject: [PATCH] Remove bad commit and fix perltest.pl check

---
 bindings/perltest.pl | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/bindings/perltest.pl b/bindings/perltest.pl
index 93250739b..336c25387 100755
--- a/bindings/perltest.pl
+++ b/bindings/perltest.pl
@@ -1,5 +1,4 @@
-#!/usr/bin/perl
-##!/usr/bin/perl -Iblib/arch -Iblib/lib
+#!/usr/bin/perl -Iblib/arch -Iblib/lib
 
 use Hamlib;
 
@@ -50,10 +49,10 @@ print "get_info:\t\t$inf\n";
 
 $rig->set_level("VOX", 1);
 $lvl = $rig->get_level_i("VOX");
-print "VOX level:\t\t$lvl\n";
-$rig->set_level($Hamlib::RIG_LEVEL_VOX, 5);
-$lvl = $rig->get_level_i($Hamlib::RIG_LEVEL_VOX);
-print "VOX level:\t\t$lvl\n";
+print "VOX delay:\t\t$lvl\n";
+$rig->set_level($Hamlib::RIG_LEVEL_VOXDELAY, 5);
+$lvl = $rig->get_level_i($Hamlib::RIG_LEVEL_VOXDELAY);
+print "VOX delay:\t\t$lvl\n";
 
 $lvl = $rig->get_level_i($Hamlib::RIG_LEVEL_STRENGTH);
 print "strength:\t\t$lvl\n";