summaryrefslogtreecommitdiffstats
path: root/perl-install/c.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2006-01-12 10:21:16 +0000
committerPascal Rigaux <pixel@mandriva.com>2006-01-12 10:21:16 +0000
commit0887b2e926ab46554ac1af98c55e639c33b7987b (patch)
tree78693d5c37b5de1ef8ac70c8d6fb61033a8fb95a /perl-install/c.pm
parent597e9ea6f8fe597bd7c0600b17534f9c428dc8eb (diff)
downloaddrakx-backup-do-not-use-0887b2e926ab46554ac1af98c55e639c33b7987b.tar
drakx-backup-do-not-use-0887b2e926ab46554ac1af98c55e639c33b7987b.tar.gz
drakx-backup-do-not-use-0887b2e926ab46554ac1af98c55e639c33b7987b.tar.bz2
drakx-backup-do-not-use-0887b2e926ab46554ac1af98c55e639c33b7987b.tar.xz
drakx-backup-do-not-use-0887b2e926ab46554ac1af98c55e639c33b7987b.zip
less verbose
Diffstat (limited to 'perl-install/c.pm')
-rw-r--r--perl-install/c.pm5
1 files changed, 1 insertions, 4 deletions
diff --git a/perl-install/c.pm b/perl-install/c.pm
index 80b8b2571..e63c9c518 100644
--- a/perl-install/c.pm
+++ b/perl-install/c.pm
@@ -19,8 +19,6 @@ sub AUTOLOAD() {
sub total_sectors {
my ($fd) = @_;
- use log;
- log::l("special total_sectors");
my ($BLKGETSIZE, $BLKGETSIZE64) = (0x1260, 0x80041272);
open(my $F, "<& $fd") or return;
@@ -29,11 +27,10 @@ sub total_sectors {
my ($v, $v1) = unpack("L2", $ll);
$v1 * 1024 * 1024 * 8 + $v / 512;
} elsif (ioctl($F, $BLKGETSIZE, $ll)) {
- log::l("defaulting to BLKGETSIZE");
unpack("L", $ll);
} else {
0;
}
-};
+}
1;