summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index a7d2a89a8..2b840b6d0 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -465,7 +465,7 @@ sub setAuthentication {
#run_program::rooted($o->{prefix}, "/usr/sbin/chkauth", "yp", $domain, "-s", $nis);
$o->pkg_install("ypbind");
my $domain = $o->{netc}{NISDOMAIN};
- $domain || $nis ne "broadcast" or die N("Can't use broadcast with no NIS domain");
+ $domain || $nis ne "broadcast" or die \N("Can't use broadcast with no NIS domain");
my $t = $domain ? "domain $domain" . ($nis ne "broadcast" && " server") : "ypserver";
substInFile {
$_ = "#~$_" unless /^#/;
@@ -878,7 +878,7 @@ sub loadO {
-e "$f.pl" and $f .= ".pl" unless -e $f;
my $fh;
- if (-e $f) { open $fh, $f } else { $fh = getFile($f) or die N("Error reading file %s", $f) }
+ if (-e $f) { open $fh, $f } else { $fh = getFile($f) or die \N("Error reading file %s", $f) }
{
local $/ = "\0";
no strict;
@@ -996,7 +996,7 @@ sub getHds {
my $hds = $all_hds->{hds};
if (is_empty_array_ref($hds)) { #- no way
- die N("An error occurred - no valid devices were found on which to create new filesystems. Please check your hardware for the cause of this problem");
+ die \N("An error occurred - no valid devices were found on which to create new filesystems. Please check your hardware for the cause of this problem");
}
#- try to figure out if the same number of hds is available, use them if ok.