diff options
| -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; |