diff options
| author | Olivier Thauvin <nanardon@mandriva.org> | 2005-10-09 22:12:33 +0000 |
|---|---|---|
| committer | Olivier Thauvin <nanardon@mandriva.org> | 2005-10-09 22:12:33 +0000 |
| commit | 4215ddb5457f9e632bdb5e7b787251fb093a9cf2 (patch) | |
| tree | 8a8936dd98746b1505355785284a54f661a5edf7 /lib/MDV/Distribconf.pm | |
| parent | 0609bac26404c93238819a01530b32d8834079b1 (diff) | |
| download | perl-MDV-Distribconf-4215ddb5457f9e632bdb5e7b787251fb093a9cf2.tar perl-MDV-Distribconf-4215ddb5457f9e632bdb5e7b787251fb093a9cf2.tar.gz perl-MDV-Distribconf-4215ddb5457f9e632bdb5e7b787251fb093a9cf2.tar.bz2 perl-MDV-Distribconf-4215ddb5457f9e632bdb5e7b787251fb093a9cf2.tar.xz perl-MDV-Distribconf-4215ddb5457f9e632bdb5e7b787251fb093a9cf2.zip | |
- more tests
Diffstat (limited to 'lib/MDV/Distribconf.pm')
| -rw-r--r-- | lib/MDV/Distribconf.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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; |