fix perl 5.8.8 compat again again

This commit is contained in:
Matthew Connelly 2015-03-01 21:34:35 +00:00
parent 10df593671
commit ca1e75d65b
1 changed files with 2 additions and 3 deletions

View File

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