From 4215ddb5457f9e632bdb5e7b787251fb093a9cf2 Mon Sep 17 00:00:00 2001 From: Olivier Thauvin Date: Sun, 9 Oct 2005 22:12:33 +0000 Subject: - more tests --- lib/MDV/Distribconf.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/MDV') diff --git a/lib/MDV/Distribconf.pm b/lib/MDV/Distribconf.pm index c6873a8..8d099f4 100644 --- a/lib/MDV/Distribconf.pm +++ b/lib/MDV/Distribconf.pm @@ -354,7 +354,7 @@ of media, location of index files, and paths set in the configuration. sub getpath { my ($distrib, $media, $var) = @_; - + $var ||= ""; # Avoid undef value my $val = $distrib->getvalue($media, $var); $var =~ /^(?:root|VERSION)$/ and return $val; return ($val =~ m!/! ? "" : ($var eq 'path' ? $distrib->{mediadir} : $distrib->{infodir} ) . "/") . $val; -- cgit v1.2.1