summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2006-08-24 18:39:49 +0000
committerThierry Vignaud <tv@mandriva.org>2006-08-24 18:39:49 +0000
commit0d5cf82fb5f487902e8e09805b0d28629bc3d29e (patch)
tree73ecf27ce5e9512aae7c3faa5e024d2c46a32b89 /lib
parentf52ea2a3f61a717fb0e7633fa96095d13f9b1c11 (diff)
downloadperl-MDV-Distribconf-0d5cf82fb5f487902e8e09805b0d28629bc3d29e.tar
perl-MDV-Distribconf-0d5cf82fb5f487902e8e09805b0d28629bc3d29e.tar.gz
perl-MDV-Distribconf-0d5cf82fb5f487902e8e09805b0d28629bc3d29e.tar.bz2
perl-MDV-Distribconf-0d5cf82fb5f487902e8e09805b0d28629bc3d29e.tar.xz
perl-MDV-Distribconf-0d5cf82fb5f487902e8e09805b0d28629bc3d29e.zip
minimal changes to make it parsable by perl_checker
Diffstat (limited to 'lib')
-rw-r--r--lib/MDV/Distribconf.pm8
1 files 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
}