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/diskdrake | |
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/diskdrake')
-rw-r--r-- | perl-install/diskdrake/hd_gtk.pm | 2 | ||||
-rw-r--r-- | perl-install/diskdrake/interactive.pm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm index 816563103..c6ae7b4e4 100644 --- a/perl-install/diskdrake/hd_gtk.pm +++ b/perl-install/diskdrake/hd_gtk.pm @@ -252,7 +252,7 @@ sub create_automatic_notebooks { my $b = $_->{marked} or $notebook_widget->remove_page($::i); $b; } @notebook; - @notebook or die \N("No hard drives found"); + @notebook or die N("No hard drives found"); } ################################################################################ diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm index 30f16e1cc..a037c4fe4 100644 --- a/perl-install/diskdrake/interactive.pm +++ b/perl-install/diskdrake/interactive.pm @@ -1053,7 +1053,7 @@ sub check { sub check_rebootNeeded { my ($_in, $hd) = @_; - $hd->{rebootNeeded} and die \N("You'll need to reboot before the modification can take place"); + $hd->{rebootNeeded} and die N("You'll need to reboot before the modification can take place"); } sub write_partitions { |