summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorOlivier Thauvin <nanardon@mandriva.org>2006-09-03 04:44:10 +0000
committerOlivier Thauvin <nanardon@mandriva.org>2006-09-03 04:44:10 +0000
commita102276c09d6a32033c480529c475f06248aa510 (patch)
treed9389b0b56b98db137b7ef30d7502bf290813098
parent375b524b3f466fb8cbd26f81007528b75283cc7c (diff)
downloadperl-MDV-Distribconf-a102276c09d6a32033c480529c475f06248aa510.tar
perl-MDV-Distribconf-a102276c09d6a32033c480529c475f06248aa510.tar.gz
perl-MDV-Distribconf-a102276c09d6a32033c480529c475f06248aa510.tar.bz2
perl-MDV-Distribconf-a102276c09d6a32033c480529c475f06248aa510.tar.xz
perl-MDV-Distribconf-a102276c09d6a32033c480529c475f06248aa510.zip
- fix getfullpath root
-rw-r--r--lib/MDV/Distribconf.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/MDV/Distribconf.pm b/lib/MDV/Distribconf.pm
index ea77392..0eb5529 100644
--- a/lib/MDV/Distribconf.pm
+++ b/lib/MDV/Distribconf.pm
@@ -511,6 +511,7 @@ prefixed by the 'root' path. This is a shortcut for:
sub getfullpath {
my $distrib = shift;
my $path = $distrib->getpath(@_) or return;
+ return $distrib->getpath(undef, 'root') if (($_[1] || '') eq 'root');
return $distrib->getpath(undef, 'root') . '/' . $path;
}