From 9dc44c84d0d8408b979268bed5b1054257582cc9 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Wed, 30 Dec 2015 09:33:14 -0500
Subject: fix warnings with perl-5.22

---
 lib/MDV/Distribconf.pm | 4 ++--
 1 file 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;
 
-- 
cgit v1.2.1