From 92492c46275c8030b754b6253a3db2c124c967f1 Mon Sep 17 00:00:00 2001
From: Michael Black W9MDB <mdblack98@yahoo.com>
Date: Thu, 4 Feb 2021 07:23:53 -0600
Subject: [PATCH] Modify perltest.pl for multi-line rig_error return
 https://github.com/Hamlib/Hamlib/issues/526

---
 bindings/perltest.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/bindings/perltest.pl b/bindings/perltest.pl
index 91652ad28..509560ad6 100755
--- a/bindings/perltest.pl
+++ b/bindings/perltest.pl
@@ -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";