diff options
author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-11-15 11:22:04 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-11-15 11:22:04 +0000 |
commit | b4eeb8c03a03ab7531103bd8b708d64d62264f9f (patch) | |
tree | 342ee3c7960298078547674b8c5269df0c643de5 | |
parent | 6f3709831a2792579d350adde82640c36847a189 (diff) | |
download | rpmtools-b4eeb8c03a03ab7531103bd8b708d64d62264f9f.tar rpmtools-b4eeb8c03a03ab7531103bd8b708d64d62264f9f.tar.gz rpmtools-b4eeb8c03a03ab7531103bd8b708d64d62264f9f.tar.bz2 rpmtools-b4eeb8c03a03ab7531103bd8b708d64d62264f9f.tar.xz rpmtools-b4eeb8c03a03ab7531103bd8b708d64d62264f9f.zip |
Use modules in the new namespace MDV::
-rwxr-xr-x | dumpdistribconf | 6 | ||||
-rwxr-xr-x | gendistrib | 12 |
2 files changed, 9 insertions, 9 deletions
diff --git a/dumpdistribconf b/dumpdistribconf index 2047072..c462606 100755 --- a/dumpdistribconf +++ b/dumpdistribconf @@ -4,7 +4,7 @@ use strict; use Getopt::Long; -use Distribconf::Build; +use MDV::Distribconf::Build; use Pod::Usage; sub usage () { @@ -24,8 +24,8 @@ GetOptions( @ARGV or usage; foreach (@ARGV) { - print "Using root $_...\n"; - my $d = Distribconf::Build->new($_); + warn "Using root $_...\n"; + my $d = MDV::Distribconf::Build->new($_); $d->load or do { warn "Can't load configuration from $_\n"; next; @@ -7,8 +7,8 @@ use Cwd; use URPM; use URPM::Build; use Getopt::Long; -use Distribconf::Build; -use Packdrakeng; +use MDV::Distribconf::Build; +use MDV::Packdrakeng; use Pod::Usage; my $urpm = new URPM; @@ -45,7 +45,7 @@ GetOptions( (my @root = grep { $_ } @ARGV) > 0 or usage(); -my $distrib = Distribconf::Build->new($root[0]); +my $distrib = MDV::Distribconf::Build->new($root[0]); $distrib->loadtree or die "$root[0] does not seem to be a distribution tree\n"; @@ -220,7 +220,7 @@ foreach (0..$#hdlists) { # return 1 if differ, 0 otherwise sub compare_headers_with_hdlist { my ($hdlist, @headers) = @_; - if (my $pack = Packdrakeng->open(archive => $hdlist)) { + if (my $pack = MDV::Packdrakeng->open(archive => $hdlist)) { my %exists_headers; $exists_headers{$_} = 0 foreach(@headers); my (undef, $files, undef) = $pack->getcontent(); @@ -291,7 +291,7 @@ foreach (0..$#hdlists) { synthesis => $e->{synthesis}); } else { # no rpm, creating empty but valid index - my $pack = Packdrakeng->new(archive => $temp_hdlist); + my $pack = MDV::Packdrakeng->new(archive => $temp_hdlist); $pack = undef; # closing archive system('/bin/mv', $temp_hdlist, $e->{hdlist}); @@ -532,7 +532,7 @@ and report them. =head1 SEE ALSO -genhdlist(1), and Distribconf(3) for description of the format of the +genhdlist(1), and MDV::Distribconf(3) for description of the format of the F<media.cfg> file. =head1 COPYRIGHT |