Fabio/ddclient
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Disable accidental interpolation in regular expression

Browse source 
Without this change, Perl prints the following warning:

> Possible unintended interpolation of `@$` in string at ddclient line 43.
This commit is contained in:
Richard Hansen 2020-06-29 14:21:29 -04:00
parent dde91fd028
commit c72d128a9e
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
ddclient.template
View file

@ -40,7 +40,7 @@ my $hostname = hostname();
# to run this file as a Perl script before those substitutions are made.
sub subst_var {
my ($subst, $default) = @_;
return $default if $subst =~ /^@\w+@$/a;
return $default if $subst =~ qr'^@\w+@$'a;
return $subst;
}