diff options
| author | Olivier Thauvin <nanardon@mandriva.org> | 2005-10-09 20:56:53 +0000 |
|---|---|---|
| committer | Olivier Thauvin <nanardon@mandriva.org> | 2005-10-09 20:56:53 +0000 |
| commit | 0609bac26404c93238819a01530b32d8834079b1 (patch) | |
| tree | 963bca701a8557d5ad79bba3259c7bac7a068107 /lib/MDV/Distribconf/Build.pm | |
| parent | 07dd6ba1c14d0e97c9ea66e4d4410e10bb7a9fc6 (diff) | |
| download | perl-MDV-Distribconf-0609bac26404c93238819a01530b32d8834079b1.tar perl-MDV-Distribconf-0609bac26404c93238819a01530b32d8834079b1.tar.gz perl-MDV-Distribconf-0609bac26404c93238819a01530b32d8834079b1.tar.bz2 perl-MDV-Distribconf-0609bac26404c93238819a01530b32d8834079b1.tar.xz perl-MDV-Distribconf-0609bac26404c93238819a01530b32d8834079b1.zip | |
- add test and proper fix
Diffstat (limited to 'lib/MDV/Distribconf/Build.pm')
| -rw-r--r-- | lib/MDV/Distribconf/Build.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/MDV/Distribconf/Build.pm b/lib/MDV/Distribconf/Build.pm index bbe2a5a..c5eda27 100644 --- a/lib/MDV/Distribconf/Build.pm +++ b/lib/MDV/Distribconf/Build.pm @@ -57,6 +57,7 @@ no defined parameters. sub setvalue { my ($distrib, $media, $var, $val) = @_; + $media ||= 'media_info'; if ($var) { $var =~ /^(?:media|info)dir\z/ and do { $distrib->{$var} = $val; |