From 432f25c16c5067056b767f51243b9ddada214b2c Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 5 Apr 2004 09:24:25 +0000 Subject: perl now handle cleanly utf8 string in exceptions, no need to die \N("...") --- perl-install/partition_table/raw.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/partition_table/raw.pm') diff --git a/perl-install/partition_table/raw.pm b/perl-install/partition_table/raw.pm index 2b7efa808..e01f9c1c3 100644 --- a/perl-install/partition_table/raw.pm +++ b/perl-install/partition_table/raw.pm @@ -184,7 +184,7 @@ sub test_for_bad_drives { my $tmp2; &$seek; sysread $F, $tmp2, $SECTORSIZE or die "test_for_bad_drives: can't even read again ($!)"; $tmp eq $tmp2 or die -\N("Something bad is happening on your drive. +N("Something bad is happening on your drive. A test to check the integrity of data has failed. It means writing anything on the disk will end up with random, corrupted data."); } -- cgit v1.2.1