From 49924b81a16c0f357c1957d5e638262db2f4e7d0 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 3 Sep 2003 15:51:17 +0000 Subject: require resize_fat::main when needed (fix bug #5204) --- perl-install/diskdrake/hd_gtk.pm | 1 - perl-install/diskdrake/interactive.pm | 1 + 2 files changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/diskdrake') 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); -- cgit v1.2.1