From 0887b2e926ab46554ac1af98c55e639c33b7987b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 12 Jan 2006 10:21:16 +0000
Subject: less verbose

---
 perl-install/c.pm | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'perl-install')

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;
-- 
cgit v1.2.1