From ca1e75d65b033c6e53eea3421ced02dcf2b119bc Mon Sep 17 00:00:00 2001
From: Matthew Connelly <github@maff.im>
Date: Sun, 1 Mar 2015 21:34:35 +0000
Subject: [PATCH] fix perl 5.8.8 compat again again

---
 rdns-manager | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/rdns-manager b/rdns-manager
index 4b44941..7f95481 100755
--- a/rdns-manager
+++ b/rdns-manager
@@ -50,7 +50,7 @@ sub nicedie {
 	exit 1;
 }
 sub print_help {
-	print <<"ENDHELP"
+	print qq{
 rdns-manager v$VERSION by Matthew Connelly, 2014-15
 Manager script for in-addr.arpa and ip6.arpa zones.
 Source at https://github.com/MaffC/script-collection/blob/master/rdns-manager
@@ -71,8 +71,7 @@ Options:
 
 Configuration:
 --reset-hostname=[default rDNS]:	Use in combination with -r, --reset.
---dns-server=[IP address]:			Change what DNS server is used for forward and reverse DNS queries.
-ENDHELP
+--dns-server=[IP address]:			Change what DNS server is used for forward and reverse DNS queries.};
 	exit;
 }
 sub validate_domain {