From f4d7db31562e1d8a5d418d257e58e3204c18b8b6 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Thu, 27 Oct 2005 16:45:15 +0000
Subject: Get rid of log.pm package

---
 rpmdrake    | 10 ++++++++--
 rpmdrake.pm |  1 -
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/rpmdrake b/rpmdrake
index 9bcf38f8..3093256d 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -375,11 +375,17 @@ sub extract_header {
 	if (-r $hdlist) {
 	    my $packer;
 	    eval { require packdrake; $packer = new packdrake($hdlist, quiet => 1) }
-		or log::l("Warning, hdlist seems corrupted :-("), goto header_non_available;
+		or do {
+		    warn "Warning, hdlist seems corrupted\n";
+		    goto header_non_available;
+		};
             my $headersdir = chomp_(`mktemp -d /tmp/rpmdrake.XXXXXX`);
             -d $headersdir or die "Could not create temporary directory";
 	    $packer->extract_archive($headersdir, $p->header_filename);
-	    $p->update_header("$headersdir/" . $p->header_filename) or log::l("Warning, could not extract header!"), goto header_non_available;
+	    $p->update_header("$headersdir/" . $p->header_filename) or do {
+		warn "Warning, could not extract header!";
+		goto header_non_available;
+	    };
 	    rm_rf($headersdir);
 	    add2hash($pkg, { summary => rpm_summary($p->summary), description => rpm_description($p->description) });
 	    @$max_info_in_descr and add2hash($pkg, {
diff --git a/rpmdrake.pm b/rpmdrake.pm
index c3d5c361..78f01b6c 100644
--- a/rpmdrake.pm
+++ b/rpmdrake.pm
@@ -33,7 +33,6 @@ use urpm::cfg;
 use URPM;
 use URPM::Resolve;
 use strict;
-use log;
 use c;
 use common;
 
-- 
cgit v1.2.1