summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorOlivier Thauvin <nanardon@mandriva.org>2006-08-22 13:11:54 +0000
committerOlivier Thauvin <nanardon@mandriva.org>2006-08-22 13:11:54 +0000
commit8db31ddc772dc8620992e9c80e5cc4b855dccac9 (patch)
treeeba8fb95174b814f762d1a3f32e43e30c03fbc48
parent09951ebbf3f2823e26511b5828a9630f941813fe (diff)
downloadperl-MDV-Distribconf-8db31ddc772dc8620992e9c80e5cc4b855dccac9.tar
perl-MDV-Distribconf-8db31ddc772dc8620992e9c80e5cc4b855dccac9.tar.gz
perl-MDV-Distribconf-8db31ddc772dc8620992e9c80e5cc4b855dccac9.tar.bz2
perl-MDV-Distribconf-8db31ddc772dc8620992e9c80e5cc4b855dccac9.tar.xz
perl-MDV-Distribconf-8db31ddc772dc8620992e9c80e5cc4b855dccac9.zip
- more doc3.03
-rw-r--r--lib/MDV/Distribconf.pm16
1 files changed, 15 insertions, 1 deletions
diff --git a/lib/MDV/Distribconf.pm b/lib/MDV/Distribconf.pm
index 6eb5fb5..52fe2d3 100644
--- a/lib/MDV/Distribconf.pm
+++ b/lib/MDV/Distribconf.pm
@@ -2,7 +2,7 @@ package MDV::Distribconf;
# $Id$
-our $VERSION = '3.02';
+our $VERSION = '3.03';
=head1 NAME
@@ -473,6 +473,14 @@ sub getpath {
}
}
+=head2 $distrib->getmediapath($media, $var)
+
+This function does the same than getpath except it return the path proper
+to the media for files having doble location (index for example).
+
+=cut
+
+
sub getmediapath {
my ($distrib, $media, $var) = @_;
my %files = (
@@ -500,6 +508,12 @@ sub getfullpath {
my $path = $distrib->getpath(@_) or return;
return $distrib->getpath(undef, 'root') . '/' . $path;
}
+=head2 $distrib->getfullmediapath($media, $var)
+
+This function does the same than getpath except it return the path proper
+to the media for files having doble location (index for example).
+
+=cut
sub getfullmediapath {
my $distrib = shift;