summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorOlivier Thauvin <nanardon@mandriva.org>2005-10-09 20:56:53 +0000
committerOlivier Thauvin <nanardon@mandriva.org>2005-10-09 20:56:53 +0000
commit0609bac26404c93238819a01530b32d8834079b1 (patch)
tree963bca701a8557d5ad79bba3259c7bac7a068107 /lib
parent07dd6ba1c14d0e97c9ea66e4d4410e10bb7a9fc6 (diff)
downloadperl-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')
-rw-r--r--lib/MDV/Distribconf/Build.pm1
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;