From 3ee1bace629019b992f3bc6f844e15d3da59b7b8 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Thu, 29 Sep 2005 15:51:26 +0000
Subject: Use Distribconf::Build, or else it will go boom

---
 dumpdistribconf | 34 +++++++++++++++-------------------
 1 file changed, 15 insertions(+), 19 deletions(-)

diff --git a/dumpdistribconf b/dumpdistribconf
index 7652adc..5ea82b2 100755
--- a/dumpdistribconf
+++ b/dumpdistribconf
@@ -4,10 +4,10 @@
 
 use strict;
 use Getopt::Long;
-use Distribconf;
+use Distribconf::Build;
 
 sub usage {
-    print STDERR <<EOF
+    print STDERR <<EOF;
 $0 -h|-m [options] path1 [path2 ...]
 Dump Mandriva Linux distrib configuration.
 
@@ -15,34 +15,30 @@ Dump Mandriva Linux distrib configuration.
 -m      output an media.cfg file
 -d      write the directly into the dedicated location
 EOF
-;
+    exit 1;
 };
 
-my ($out, $outputtype) = (\*STDOUT);
-
+my ($out, $outputtype) = (\*STDOUT, 'm');
 GetOptions(
-    'h' => sub { $outputtype = 'h' },
-    'm' => sub { $outputtype = 'm' },
-    'd' => sub { $out = undef; },
+    h => sub { $outputtype = 'h' },
+    m => sub { $outputtype = 'm' },
+    d => sub { undef $out },
 );
 
-defined($outputtype) && @ARGV or do {
-    usage;
-    exit 1;
-};
+@ARGV or usage;
 
 foreach (@ARGV) {
-    print STDERR "$_\n";
-    my $d = Distribconf->new($_);
+    print "Using root $_...\n";
+    my $d = Distribconf::Build->new($_);
     $d->load and do {
-        warn "Can't load configuration from $_\n";
-        next;
+	warn "Can't load configuration from $_\n";
+	next;
     };
     if ($outputtype eq 'h') {
-        $d->write_hdlists($out) or warn "Can't write hdlists file\n";
+	$d->write_hdlists($out) or warn "Can't write hdlists file\n";
     } else {
-        $d->write_mediacfg($out) or warn "Can't write media.cfg file\n";
+	$d->write_mediacfg($out) or warn "Can't write media.cfg file\n";
     }
 }
 
-
+__END__
-- 
cgit v1.2.1