diff options
-rwxr-xr-x | editdistrib | 11 |
1 files 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); + } + }, }; |