diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-04-05 09:24:25 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-04-05 09:24:25 +0000 |
| commit | 432f25c16c5067056b767f51243b9ddada214b2c (patch) | |
| tree | 000224647e4d436406344f0e02bc8757e138b4c5 /perl-install/install_any.pm | |
| parent | 3a986222e04aaa08efd903894aa2679b9ccb2b16 (diff) | |
| download | drakx-backup-do-not-use-432f25c16c5067056b767f51243b9ddada214b2c.tar drakx-backup-do-not-use-432f25c16c5067056b767f51243b9ddada214b2c.tar.gz drakx-backup-do-not-use-432f25c16c5067056b767f51243b9ddada214b2c.tar.bz2 drakx-backup-do-not-use-432f25c16c5067056b767f51243b9ddada214b2c.tar.xz drakx-backup-do-not-use-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.pm | 4 |
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. |