diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-07-07 21:56:38 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-07-07 21:56:38 +0000 |
| commit | 1d6f2a4cf0a65a475fee3d56d563ee2798193e2e (patch) | |
| tree | 29eca878ce148c96e143c5a4f81a00f5a5b7823e /perl-install | |
| parent | 66d764e0ac969a5b51a35aa342560cdb3680c61c (diff) | |
| download | drakx-backup-do-not-use-1d6f2a4cf0a65a475fee3d56d563ee2798193e2e.tar drakx-backup-do-not-use-1d6f2a4cf0a65a475fee3d56d563ee2798193e2e.tar.gz drakx-backup-do-not-use-1d6f2a4cf0a65a475fee3d56d563ee2798193e2e.tar.bz2 drakx-backup-do-not-use-1d6f2a4cf0a65a475fee3d56d563ee2798193e2e.tar.xz drakx-backup-do-not-use-1d6f2a4cf0a65a475fee3d56d563ee2798193e2e.zip | |
use c::total_sectors() instead of BLKGETSIZE
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/devices.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/devices.pm b/perl-install/devices.pm index 051ec990d..260793e30 100644 --- a/perl-install/devices.pm +++ b/perl-install/devices.pm @@ -15,8 +15,9 @@ sub size($) { my $valid_offset = sub { sysseek(F, $_[0], 0) && sysread(F, my $a, 1) }; #- first try getting the size nicely - my $size = 0; - ioctl(F, c::BLKGETSIZE(), $size) and return unpack("i", $size) * $common::SECTORSIZE; + if (my $size = c::total_sectors(fileno F)) { + return $size * $common::SECTORSIZE; + } #- sad it didn't work, well searching the size using the dichotomy algorithm! my $low = 0; |