summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2015-12-30 09:33:14 -0500
committerThierry Vignaud <thierry.vignaud@gmail.com>2016-01-05 22:31:21 +0100
commit9dc44c84d0d8408b979268bed5b1054257582cc9 (patch)
tree2cb0c5b0d421b226562fa4126fac7da620ac346c
parentf464f2aad26e9fb6207f8ce3ccbc6b37e030be85 (diff)
downloadperl-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.pm4
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;