From e8dc09bb793f25103d2aa902046813483660a976 Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Wed, 18 Jun 2008 17:06:42 -0700 Subject: [PATCH] * Use the new Debbugs::Log interface --- Debbugs/SOAP.pm | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) diff --git a/Debbugs/SOAP.pm b/Debbugs/SOAP.pm index 5f0138a..32e874e 100644 --- a/Debbugs/SOAP.pm +++ b/Debbugs/SOAP.pm @@ -225,13 +225,7 @@ sub get_bug_log{ my $VERSION = __populate_version(pop); my ($self,$bug,$msg_num) = @_; - my $location = getbuglocation($bug,'log'); - my $bug_log = getbugcomponent($bug,'log',$location); - - my $log_fh = IO::File->new($bug_log, 'r') or - die "Unable to open bug log $bug_log for reading: $!"; - - my $log = Debbugs::Log->new($log_fh) or + my $log = Debbugs::Log->new(bug_num => $bug) or die "Debbugs::Log was unable to be initialized"; my %seen_msg_ids; -- 2.39.2