summaryrefslogtreecommitdiffstats
path: root/perl-install/resize_fat
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-05-02 09:20:40 +0000
committerFrancois Pons <fpons@mandriva.com>2000-05-02 09:20:40 +0000
commit95ae29a183dba3a7c59535b84b2de0f563b3b77f (patch)
treefd5983f2314e91372412142e1dfd5fd74d2beff6 /perl-install/resize_fat
parentf80fa3b76df681f4dc2837cd2192247cfe2c0d7c (diff)
downloaddrakx-backup-do-not-use-95ae29a183dba3a7c59535b84b2de0f563b3b77f.tar
drakx-backup-do-not-use-95ae29a183dba3a7c59535b84b2de0f563b3b77f.tar.gz
drakx-backup-do-not-use-95ae29a183dba3a7c59535b84b2de0f563b3b77f.tar.bz2
drakx-backup-do-not-use-95ae29a183dba3a7c59535b84b2de0f563b3b77f.tar.xz
drakx-backup-do-not-use-95ae29a183dba3a7c59535b84b2de0f563b3b77f.zip
*** empty log message ***
Diffstat (limited to 'perl-install/resize_fat')
-rw-r--r--perl-install/resize_fat/any.pm8
1 files changed, 5 insertions, 3 deletions
diff --git a/perl-install/resize_fat/any.pm b/perl-install/resize_fat/any.pm
index d150b142c..d06e2e755 100644
--- a/perl-install/resize_fat/any.pm
+++ b/perl-install/resize_fat/any.pm
@@ -38,7 +38,7 @@ sub last_used($) {
#- count in negative so absolute value count back to 2.
foreach (-($fs->{nb_clusters}+1)..-2) { return -$_ if resize_fat::c_rewritten::flag(-$_) }
- die "any: empty FAT table";
+ die "any: empty FAT table of $fs->{nb_clusters} clusters";
}
#- patch to get the function last_unmoveable that return the last unmoveable cluster of a fs.
sub last_unmoveable($) {
@@ -46,7 +46,9 @@ sub last_unmoveable($) {
#- count in negative so absolute value count back to 2.
foreach (-($fs->{nb_clusters}+1)..-2) { return -$_ if 0x8 & resize_fat::c_rewritten::flag(-$_) }
- die "any: empty FAT table";
+
+ #- Oh at this point there are no unmoveable blocks!
+ 2;
}
#- calculates the minimum size of a partition, in physical sectors
@@ -108,7 +110,7 @@ sub flag_clusters {
} else { return }
my $nb = resize_fat::c_rewritten::checkFat($cluster, $type, "$curr_dir_name/$entry->{name}");
- print "resize_fat:flag_clusters: check fat returned $nb for $curr_dir_name/$entry->{name}\n";
+ print "resize_fat:flag_clusters: check fat returned $nb of type $type for $curr_dir_name/$entry->{name}\n";
$nb_dirs += $nb if $type == $DIRECTORY;
0;
};