From 7a21da20c34db394abcde18f08d106edc47ae8c2 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Wed, 19 Feb 2003 23:46:30 +0000
Subject: to workaround perl bug removing UTF8 flag when passing scalars to
 die's, pass a scalar-ref. but we need to de-ref, so it might break many
 things :). let's make a prayer :).

---
 perl-install/diskdrake/hd_gtk.pm      | 2 +-
 perl-install/diskdrake/interactive.pm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/diskdrake')

diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm
index f6f23b22a..321682581 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -255,7 +255,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 5fdf71c82..3f0e7d30b 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -1050,7 +1050,7 @@ sub write_partitions {
     if (!$::testing) {
 	partition_table::write($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");
     1;
 }
 
-- 
cgit v1.2.1