run_program.pm « perl-install - drakx - Mageia Installer and base platform for many utilities

blob: a560d8c34b6fae894010f03e9d067f43fd5e2b53 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
Diffstat (limited to 'perl-install/share')
-rw-r--r-- perl-install/share/compssList 1 
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/share/compssList b/perl-install/share/compssList
index b909a12f6..b53e68da4 100644
--- a/perl-install/share/compssList
+++ b/perl-install/share/compssList
@@ -738,6 +738,7 @@ locales-tr                                     0     0     0
 locales-uk                                     0     0     0
 locales-vi                                     0     0     0
 locales-wa                                     0     0     0
+locales-yi                                     0     0     0
 locales-zh                                     0     0     0
 logrotate                                      0    25    15
 losetup                                        5    45    35
 
generated by cgit v1.2.1 (git 2.21.0) at 2025-02-22 23:56:56 +0000
 


">1;

sub run_or_die {
    my ($name, @args) = @_;
    run($name, @args) or die "$name failed\n";
}
sub rooted_or_die {
    my ($root, $name, @args) = @_;
    rooted($root, $name, @args) or die "$name failed\n";
}

sub get_stdout {
    my ($name, @args) = @_;
    my @r;
    run($name, '>', \@r, @args) or return;
    wantarray() ? @r : join('', @r);
}
sub rooted_get_stdout {
    my ($root, $name, @args) = @_;
    my @r;
    rooted($root, $name, '>', \@r, @args) or return;
    wantarray() ? @r : join('', @r);
}

sub run { raw({}, @_) }

sub rooted {
    my ($root, $name, @args) = @_;
    raw({ root => $root }, $name, @args);
}

sub raw {
    my ($options, $name, @args) = @_;
    my $root = $options->{root} || '';
    my $real_name = ref($name) ? $name->[0] : $name;

    my ($stdout_raw, $stdout_mode, $stderr_raw, $stderr_mode);
    ($stdout_mode, $stdout_raw, @args) = @args if $args[0] =~ /^>>?$/;
    ($stderr_mode, $stderr_raw, @args) = @args if $args[0] =~ /^2>>?$/;

    log::l("running: $real_name @args" . ($root ? " with root $root" : ""));

    return 1 if $root && $<;

    $root ? ($root .= '/') : ($root = '');
    if (!$root && !$::isStandalone) {
	require install_any;