summaryrefslogtreecommitdiffstats
path: root/perl-install/diskdrake
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/diskdrake
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/diskdrake')
-rw-r--r--perl-install/diskdrake/hd_gtk.pm2
-rw-r--r--perl-install/diskdrake/interactive.pm2
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 {