summaryrefslogtreecommitdiffstats
path: root/perl-install/share/po/cy.po
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/share/po/cy.po')
-rw-r--r--perl-install/share/po/cy.po2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/share/po/cy.po b/perl-install/share/po/cy.po
index 2f9b019cb..3dedcbbf2 100644
--- a/perl-install/share/po/cy.po
+++ b/perl-install/share/po/cy.po
@@ -2573,7 +2573,7 @@ msgstr "Dim digon o le cyfnewid i gyflawni'r gosod, ychwanegwch"
#, c-format
msgid ""
"You must have a root partition.\n"
-"For this, create a partition (or click on an existing one).\n"
+"To accomplish this, create a partition (or click on an existing one).\n"
"Then choose action ``Mount point'' and set it to `/'"
msgstr ""
"Rhaid cael rhainiad root.\n"
generated by cgit v1.2.1 (git 2.21.0) at 2025-01-07 15:48:38 +0000
110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 
package run_program; # $Id$

use diagnostics;
use strict;

use MDK::Common;
use log;

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 $str = ref($name) ? $name->[0] : $name;
    log::l("running: $str @args" . ($root ? " with root $root" : ""));

    return 1 if $root && $<;

    $root ? ($root .= '/') : ($root = '');
    install_any::check_prog(ref($name) ? $name->[0] : $name) if !$root && $::isInstall;


    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>>?$/;
    
    $ENV{HOME} || $::isInstall or $ENV{HOME} = '/root';