summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-04-05 09:24:25 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-04-05 09:24:25 +0000
commit432f25c16c5067056b767f51243b9ddada214b2c (patch)
tree000224647e4d436406344f0e02bc8757e138b4c5 /perl-install/install_any.pm
parent3a986222e04aaa08efd903894aa2679b9ccb2b16 (diff)
downloaddrakx-432f25c16c5067056b767f51243b9ddada214b2c.tar
drakx-432f25c16c5067056b767f51243b9ddada214b2c.tar.gz
drakx-432f25c16c5067056b767f51243b9ddada214b2c.tar.bz2
drakx-432f25c16c5067056b767f51243b9ddada214b2c.tar.xz
drakx-432f25c16c5067056b767f51243b9ddada214b2c.zip
perl now handle cleanly utf8 string in exceptions, no need to die \N("...")
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index c3c2469ab..3f49ee36a 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -861,7 +861,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;
@@ -985,7 +985,7 @@ sub getHds {
my $hds = $all_hds->{hds};
if (is_empty_array_ref($hds) && !$::move) { #- 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.