diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2006-08-24 18:39:49 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2006-08-24 18:39:49 +0000 |
| commit | 0d5cf82fb5f487902e8e09805b0d28629bc3d29e (patch) | |
| tree | 73ecf27ce5e9512aae7c3faa5e024d2c46a32b89 | |
| parent | f52ea2a3f61a717fb0e7633fa96095d13f9b1c11 (diff) | |
| download | perl-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
| -rw-r--r-- | lib/MDV/Distribconf.pm | 8 |
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 } |