From 0609bac26404c93238819a01530b32d8834079b1 Mon Sep 17 00:00:00 2001 From: Olivier Thauvin Date: Sun, 9 Oct 2005 20:56:53 +0000 Subject: - add test and proper fix --- lib/MDV/Distribconf/Build.pm | 1 + 1 file changed, 1 insertion(+) (limited to 'lib') 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; -- cgit v1.2.1