Quote the here-doc delimiter

The quoting might not be required for Perl, but without it Emacs's
syntax highlighting gets very confused.
This commit is contained in:
Richard Hansen 2020-05-25 15:27:57 -04:00
parent 4f0226ef05
commit e27d6af755

View file

@ -2397,7 +2397,7 @@ sub nic_examples {
$separator = "\n"; $separator = "\n";
} }
} }
my $intro = <<EoEXAMPLE; my $intro = <<'EoEXAMPLE';
== CONFIGURING ${program} == CONFIGURING ${program}
The configuration file, ${program}.conf, can be used to define the The configuration file, ${program}.conf, can be used to define the
@ -2576,7 +2576,7 @@ sub header_ok {
## nic_dyndns1_examples ## nic_dyndns1_examples
###################################################################### ######################################################################
sub nic_dyndns1_examples { sub nic_dyndns1_examples {
return <<EoEXAMPLE; return <<'EoEXAMPLE';
o 'dyndns1' o 'dyndns1'
The 'dyndns1' protocol is a deprecated protocol used by the free dynamic The 'dyndns1' protocol is a deprecated protocol used by the free dynamic
@ -2689,7 +2689,7 @@ sub nic_dyndns2_updateable {
## nic_dyndns2_examples ## nic_dyndns2_examples
###################################################################### ######################################################################
sub nic_dyndns2_examples { sub nic_dyndns2_examples {
return <<EoEXAMPLE; return <<'EoEXAMPLE';
o 'dyndns2' o 'dyndns2'
The 'dyndns2' protocol is a newer low-bandwidth protocol used by a The 'dyndns2' protocol is a newer low-bandwidth protocol used by a
@ -2968,7 +2968,7 @@ sub nic_noip_update {
## nic_noip_examples ## nic_noip_examples
###################################################################### ######################################################################
sub nic_noip_examples { sub nic_noip_examples {
return <<EoEXAMPLE; return <<'EoEXAMPLE';
o 'noip' o 'noip'
The 'No-IP Compatible' protocol is used to make dynamic dns updates The 'No-IP Compatible' protocol is used to make dynamic dns updates
@ -2997,7 +2997,7 @@ EoEXAMPLE
## nic_concont_examples ## nic_concont_examples
###################################################################### ######################################################################
sub nic_concont_examples { sub nic_concont_examples {
return <<EoEXAMPLE; return <<'EoEXAMPLE';
o 'concont' o 'concont'
The 'concont' protocol is the protocol used by the content management The 'concont' protocol is the protocol used by the content management
@ -3080,7 +3080,7 @@ sub nic_concont_update {
## nic_dslreports1_examples ## nic_dslreports1_examples
###################################################################### ######################################################################
sub nic_dslreports1_examples { sub nic_dslreports1_examples {
return <<EoEXAMPLE; return <<'EoEXAMPLE';
o 'dslreports1' o 'dslreports1'
The 'dslreports1' protocol is used by a free DSL monitoring service The 'dslreports1' protocol is used by a free DSL monitoring service
@ -3153,7 +3153,7 @@ sub nic_dslreports1_update {
## nic_hammernode1_examples ## nic_hammernode1_examples
###################################################################### ######################################################################
sub nic_hammernode1_examples { sub nic_hammernode1_examples {
return <<EoEXAMPLE; return <<'EoEXAMPLE';
o 'hammernode1' o 'hammernode1'
The 'hammernode1' protocol is the protocol used by the free dynamic The 'hammernode1' protocol is the protocol used by the free dynamic
@ -3223,7 +3223,7 @@ sub nic_hammernode1_update {
## nic_zoneedit1_examples ## nic_zoneedit1_examples
###################################################################### ######################################################################
sub nic_zoneedit1_examples { sub nic_zoneedit1_examples {
return <<EoEXAMPLE; return <<'EoEXAMPLE';
o 'zoneedit1' o 'zoneedit1'
The 'zoneedit1' protocol is used by a DNS service offered by The 'zoneedit1' protocol is used by a DNS service offered by
@ -3357,7 +3357,7 @@ sub nic_easydns_updateable {
## nic_easydns_examples ## nic_easydns_examples
###################################################################### ######################################################################
sub nic_easydns_examples { sub nic_easydns_examples {
return <<EoEXAMPLE; return <<'EoEXAMPLE';
o 'easydns' o 'easydns'
The 'easydns' protocol is used by the for fee DNS service offered The 'easydns' protocol is used by the for fee DNS service offered
@ -3499,7 +3499,7 @@ sub nic_easydns_update {
## nic_namecheap_examples ## nic_namecheap_examples
###################################################################### ######################################################################
sub nic_namecheap_examples { sub nic_namecheap_examples {
return <<EoEXAMPLE; return <<'EoEXAMPLE';
o 'namecheap' o 'namecheap'
@ -3583,7 +3583,7 @@ sub nic_namecheap_update {
## nic_nfsn_examples ## nic_nfsn_examples
###################################################################### ######################################################################
sub nic_nfsn_examples { sub nic_nfsn_examples {
return <<EoEXAMPLE; return <<'EoEXAMPLE';
o 'nfsn' o 'nfsn'
@ -3807,7 +3807,7 @@ sub nic_nfsn_update {
## nic_sitelutions_examples ## nic_sitelutions_examples
###################################################################### ######################################################################
sub nic_sitelutions_examples { sub nic_sitelutions_examples {
return <<EoEXAMPLE; return <<'EoEXAMPLE';
o 'sitelutions' o 'sitelutions'
@ -3887,7 +3887,7 @@ sub nic_sitelutions_update {
## nic_freedns_examples ## nic_freedns_examples
###################################################################### ######################################################################
sub nic_freedns_examples { sub nic_freedns_examples {
return <<EoEXAMPLE; return <<'EoEXAMPLE';
o 'freedns' o 'freedns'
@ -3987,7 +3987,7 @@ sub nic_freedns_update {
## nic_changeip_examples ## nic_changeip_examples
###################################################################### ######################################################################
sub nic_changeip_examples { sub nic_changeip_examples {
return <<EoEXAMPLE; return <<'EoEXAMPLE';
o 'changeip' o 'changeip'
@ -4061,7 +4061,7 @@ sub nic_changeip_update {
## nic_dtdns_examples ## nic_dtdns_examples
###################################################################### ######################################################################
sub nic_dtdns_examples { sub nic_dtdns_examples {
return <<EoEXAMPLE; return <<'EoEXAMPLE';
o 'dtdns' o 'dtdns'
The 'dtdns' protocol is the protocol used by the dynamic hostname services The 'dtdns' protocol is the protocol used by the dynamic hostname services
@ -4143,7 +4143,7 @@ sub nic_dtdns_update {
## ##
###################################################################### ######################################################################
sub nic_googledomains_examples { sub nic_googledomains_examples {
return <<EoEXAMPLE; return <<'EoEXAMPLE';
o 'googledomains' o 'googledomains'
The 'googledomains' protocol is used by DNS service offered by www.google.com/domains. The 'googledomains' protocol is used by DNS service offered by www.google.com/domains.
@ -4215,7 +4215,7 @@ sub nic_googledomains_update {
## nic_nsupdate_examples ## nic_nsupdate_examples
###################################################################### ######################################################################
sub nic_nsupdate_examples { sub nic_nsupdate_examples {
return <<EoEXAMPLE; return <<'EoEXAMPLE';
o 'nsupdate' o 'nsupdate'
The 'nsupdate' protocol is used to submit Dynamic DNS Update requests as The 'nsupdate' protocol is used to submit Dynamic DNS Update requests as
@ -4292,17 +4292,17 @@ sub nic_nsupdate_update {
verbose("UPDATE:", "updating %s", $hosts); verbose("UPDATE:", "updating %s", $hosts);
## send separate requests for each zone with all hosts in that zone ## send separate requests for each zone with all hosts in that zone
my $instructions = <<EoINSTR1; my $instructions = <<'EoINSTR1';
server $server server $server
zone $zone. zone $zone.
EoINSTR1 EoINSTR1
foreach (@hosts) { foreach (@hosts) {
$instructions .= <<EoINSTR2; $instructions .= <<'EoINSTR2';
update delete $_. $recordtype update delete $_. $recordtype
update add $_. $config{$_}{'ttl'} $recordtype $ip update add $_. $config{$_}{'ttl'} $recordtype $ip
EoINSTR2 EoINSTR2
} }
$instructions .= <<EoINSTR3; $instructions .= <<'EoINSTR3';
send send
EoINSTR3 EoINSTR3
my $command = "$binary -k $keyfile"; my $command = "$binary -k $keyfile";
@ -4335,7 +4335,7 @@ EoINSTR3
## ##
###################################################################### ######################################################################
sub nic_cloudflare_examples { sub nic_cloudflare_examples {
return <<EoEXAMPLE; return <<'EoEXAMPLE';
o 'cloudflare' o 'cloudflare'
The 'cloudflare' protocol is used by DNS service offered by www.cloudflare.com. The 'cloudflare' protocol is used by DNS service offered by www.cloudflare.com.
@ -4490,7 +4490,7 @@ sub nic_cloudflare_update {
## nic_yandex_examples ## nic_yandex_examples
###################################################################### ######################################################################
sub nic_yandex_examples { sub nic_yandex_examples {
return <<EoEXAMPLE; return <<'EoEXAMPLE';
o Yandex o Yandex
The 'yandex' protocol is used to by DNS service offered by Yandex. The 'yandex' protocol is used to by DNS service offered by Yandex.
@ -4605,7 +4605,7 @@ sub nic_yandex_update {
## nic_duckdns_examples ## nic_duckdns_examples
###################################################################### ######################################################################
sub nic_duckdns_examples { sub nic_duckdns_examples {
return <<EoEXAMPLE; return <<'EoEXAMPLE';
o 'duckdns' o 'duckdns'
The 'duckdns' protocol is used by the free The 'duckdns' protocol is used by the free
@ -4682,7 +4682,7 @@ sub nic_duckdns_update {
## nic_freemyip_examples ## nic_freemyip_examples
###################################################################### ######################################################################
sub nic_freemyip_examples { sub nic_freemyip_examples {
return <<EoEXAMPLE; return <<'EoEXAMPLE';
o 'freemyip' o 'freemyip'
The 'freemyip' protocol is used by the free The 'freemyip' protocol is used by the free
@ -4753,7 +4753,7 @@ sub nic_freemyip_update {
## nic_woima_examples ## nic_woima_examples
###################################################################### ######################################################################
sub nic_woima_examples { sub nic_woima_examples {
return <<EoEXAMPLE; return <<'EoEXAMPLE';
o 'woima' o 'woima'
The 'woima' protocol is used by the free The 'woima' protocol is used by the free
@ -4928,7 +4928,7 @@ sub nic_woima_update {
## nic_dondominio_examples ## nic_dondominio_examples
###################################################################### ######################################################################
sub nic_dondominio_examples { sub nic_dondominio_examples {
return <<EoEXAMPLE; return <<'EoEXAMPLE';
o 'dondominio' o 'dondominio'
The 'dondominio' protocol is used by DNS service offered by www.dondominio.com/ . The 'dondominio' protocol is used by DNS service offered by www.dondominio.com/ .
API information and user instructions available at: https://dev.dondominio.com/dondns/docs/api/ API information and user instructions available at: https://dev.dondominio.com/dondns/docs/api/
@ -5002,7 +5002,7 @@ sub nic_dondominio_update {
## nic_dnsmadeeasy_examples ## nic_dnsmadeeasy_examples
###################################################################### ######################################################################
sub nic_dnsmadeeasy_examples { sub nic_dnsmadeeasy_examples {
return <<EoEXAMPLE; return <<'EoEXAMPLE';
o 'dnsmadeeasy' o 'dnsmadeeasy'
The 'dnsmadeeasy' protocol is used by the DNS Made Easy service at https://www.dnsmadeeasy.com. The 'dnsmadeeasy' protocol is used by the DNS Made Easy service at https://www.dnsmadeeasy.com.