diff options
author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2015-12-30 09:33:14 -0500 |
---|---|---|
committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-01-05 22:31:21 +0100 |
commit | 9dc44c84d0d8408b979268bed5b1054257582cc9 (patch) | |
tree | 2cb0c5b0d421b226562fa4126fac7da620ac346c | |
parent | f464f2aad26e9fb6207f8ce3ccbc6b37e030be85 (diff) | |
download | perl-MDV-Distribconf-9dc44c84d0d8408b979268bed5b1054257582cc9.tar perl-MDV-Distribconf-9dc44c84d0d8408b979268bed5b1054257582cc9.tar.gz perl-MDV-Distribconf-9dc44c84d0d8408b979268bed5b1054257582cc9.tar.bz2 perl-MDV-Distribconf-9dc44c84d0d8408b979268bed5b1054257582cc9.tar.xz perl-MDV-Distribconf-9dc44c84d0d8408b979268bed5b1054257582cc9.zip |
fix warnings with perl-5.22
-rw-r--r-- | lib/MDV/Distribconf.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/MDV/Distribconf.pm b/lib/MDV/Distribconf.pm index 75cc181..b612b19 100644 --- a/lib/MDV/Distribconf.pm +++ b/lib/MDV/Distribconf.pm @@ -418,10 +418,10 @@ sub _expand { $level ||= 0; # avoid infinite loop ++$level >= 15 and return $value; - $value =~ s@\%{(\w+)}@ + $value =~ s@\%\{(\w+)\}@ $self->getvalue($media, $1) || '%{' . $1 . '}'; @eg; - $value =~ s@\${(\w+)}@ + $value =~ s@\$\{(\w+)\}@ $self->getvalue('media_info', $1, $level) || '${' . $1 . '}'; @eg; |