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/raid.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/raid.pm')
| -rw-r--r-- | perl-install/raid.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/raid.pm b/perl-install/raid.pm index df2cb6cde..7237af929 100644 --- a/perl-install/raid.pm +++ b/perl-install/raid.pm @@ -34,7 +34,7 @@ sub new { sub add { my ($raids, $part, $nb) = @_; $nb = nb($nb); - $raids->[$nb]{isMounted} and die \N("Can't add a partition to _formatted_ RAID md%d", $nb); + $raids->[$nb]{isMounted} and die N("Can't add a partition to _formatted_ RAID md%d", $nb); inactivate_and_dirty($raids->[$nb]); $part->{notFormatted} = 1; $part->{isFormatted} = 0; $part->{raid} = $nb; @@ -152,7 +152,7 @@ sub verify { my ($raids) = @_; $raids or return; foreach (grep { $_ } @$raids) { - @{$_->{disks}} >= ($_->{level} =~ /4|5/ ? 3 : 2) or die \N("Not enough partitions for RAID level %d\n", $_->{level}); + @{$_->{disks}} >= ($_->{level} =~ /4|5/ ? 3 : 2) or die N("Not enough partitions for RAID level %d\n", $_->{level}); } } |