diff options
| author | Francois Pons <fpons@mandriva.com> | 2000-05-02 09:20:40 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2000-05-02 09:20:40 +0000 |
| commit | 95ae29a183dba3a7c59535b84b2de0f563b3b77f (patch) | |
| tree | fd5983f2314e91372412142e1dfd5fd74d2beff6 /perl-install | |
| parent | f80fa3b76df681f4dc2837cd2192247cfe2c0d7c (diff) | |
| download | drakx-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')
| -rw-r--r-- | perl-install/resize_fat/any.pm | 8 |
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; }; |