summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-09-03 15:51:17 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-09-03 15:51:17 +0000
commit49924b81a16c0f357c1957d5e638262db2f4e7d0 (patch)
treef88a7ee445de3207de75a4dd6550d6bb49d2061d /perl-install
parent81d6413c405daa29608cd893714536489b38be14 (diff)
downloaddrakx-49924b81a16c0f357c1957d5e638262db2f4e7d0.tar
drakx-49924b81a16c0f357c1957d5e638262db2f4e7d0.tar.gz
drakx-49924b81a16c0f357c1957d5e638262db2f4e7d0.tar.bz2
drakx-49924b81a16c0f357c1957d5e638262db2f4e7d0.tar.xz
drakx-49924b81a16c0f357c1957d5e638262db2f4e7d0.zip
require resize_fat::main when needed (fix bug #5204)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/diskdrake/hd_gtk.pm1
-rw-r--r--perl-install/diskdrake/interactive.pm1
2 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm
index a2316a050..5342b939b 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -4,7 +4,6 @@ use diagnostics;
use strict;
use common;
-use resize_fat::main;
use ugtk2 qw(:helpers :wrappers :create);
use partition_table qw(:types);
use partition_table::raw;
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index 410391a13..3cf8d1f14 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -650,6 +650,7 @@ sub Resize {
#- try to resize without losing data
my $_w = $in->wait_message(N("Resizing"), N("Computing FAT filesystem bounds"));
+ require resize_fat::main;
$nice_resize{fat} = resize_fat::main->new($part->{device}, devices::make($part->{device}));
$min = max($min, $nice_resize{fat}->min_size);
$max = min($max, $nice_resize{fat}->max_size);