perl-install/standalone.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

package standalone; # $Id$

$::isStandalone = 1;

$ENV{SHARE_PATH} ||= "/usr/share";


sub pkgs_install {
    my ($in, @l) = @_;
    $in->suspend;
    my $ret = system('urpmi --auto --best-output ' . join(' ', @l));
    $in->resume;
    $ret;
}

1;