From 3e6abd178beca15c174316814852798ba135c46c Mon Sep 17 00:00:00 2001 From: Olivier Thauvin Date: Mon, 10 Oct 2005 23:26:53 +0000 Subject: - add addmedia() - use MDV::... --- editdistrib | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/editdistrib b/editdistrib index db26a1f..f016595 100755 --- a/editdistrib +++ b/editdistrib @@ -5,7 +5,7 @@ use strict; use warnings; -use Distribconf::Build; +use MDV::Distribconf::Build; use Term::ReadLine; use Text::ParseWords; use Getopt::Long; @@ -24,7 +24,7 @@ my $commands = { return; } foreach (@_) { - my $dbuild = Distribconf::Build->new($_); + my $dbuild = MDV::Distribconf::Build->new($_); $dbuild->load() or do { print STDERR "Can't load distrib from $_\n"; next; @@ -108,7 +108,12 @@ my $commands = { }, addmedia => sub { - } + local @ARGV = @_; + my ($m, $name) = @ARGV; + foreach (@distribs) { + $_->setvalue($m); + } + }, }; -- cgit v1.2.1