summaryrefslogtreecommitdiffstats
path: root/perl-install/install_interactive.pm
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-02-19 23:46:30 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-02-19 23:46:30 +0000
commit7a21da20c34db394abcde18f08d106edc47ae8c2 (patch)
tree4c01519c1bf85cf0c02c810d7607ee7eb7e30138 /perl-install/install_interactive.pm
parentcf502e8f3908835c936e78eda0cbe437a9bbb585 (diff)
downloaddrakx-7a21da20c34db394abcde18f08d106edc47ae8c2.tar
drakx-7a21da20c34db394abcde18f08d106edc47ae8c2.tar.gz
drakx-7a21da20c34db394abcde18f08d106edc47ae8c2.tar.bz2
drakx-7a21da20c34db394abcde18f08d106edc47ae8c2.tar.xz
drakx-7a21da20c34db394abcde18f08d106edc47ae8c2.zip
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 :).
Diffstat (limited to 'perl-install/install_interactive.pm')
-rw-r--r--perl-install/install_interactive.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/install_interactive.pm b/perl-install/install_interactive.pm
index e7287bd82..2ef9f73d8 100644
--- a/perl-install/install_interactive.pm
+++ b/perl-install/install_interactive.pm
@@ -150,7 +150,7 @@ sub partitionWizardSolutions {
};
$pkg->new($part->{device}, devices::make($part->{device}));
};
- $@ and die N("The FAT resizer is unable to handle your partition,
+ $@ and die \N("The FAT resizer is unable to handle your partition,
the following error occured: %s", formatError($@));
my $min_win = do {
my $_w = $o->wait_message(N("Resizing"), N("Computing the size of the Windows partition"));
@@ -160,7 +160,7 @@ the following error occured: %s", formatError($@));
#- this save at least a cylinder (less than 8Mb).
$min_win += partition_table::raw::cylinder_size($hd);
- $part->{size} > $min_linux + $min_swap + $min_freewin + $min_win or die N("Your Windows partition is too fragmented. Please reboot your computer under Windows, run the ``defrag'' utility, then restart the Mandrake Linux installation.");
+ $part->{size} > $min_linux + $min_swap + $min_freewin + $min_win or die \N("Your Windows partition is too fragmented. Please reboot your computer under Windows, run the ``defrag'' utility, then restart the Mandrake Linux installation.");
$o->ask_okcancel('', N("WARNING!
DrakX will now resize your Windows partition. Be careful:
@@ -186,7 +186,7 @@ When sure, press Ok.")) or return;
};
if (my $err = $@) {
$part->{size} = $oldsize;
- die N("FAT resizing failed: %s", formatError($err));
+ die \N("FAT resizing failed: %s", formatError($err));
}
$part->{isFormatted} = 1;