From 0d5cf82fb5f487902e8e09805b0d28629bc3d29e Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Thu, 24 Aug 2006 18:39:49 +0000
Subject: minimal changes to make it parsable by perl_checker

---
 lib/MDV/Distribconf.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/MDV/Distribconf.pm b/lib/MDV/Distribconf.pm
index d951531..715cd63 100644
--- a/lib/MDV/Distribconf.pm
+++ b/lib/MDV/Distribconf.pm
@@ -400,12 +400,12 @@ 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+)}][
+    @eg;
+    $value =~ s@\${(\w+)}@
         $self->getvalue('media_info', $1, $level) || '${' . $1 . '}';
-    ]eg;
+    @eg;
 
     $value
 }
-- 
cgit v1.2.1