From: Don Armstrong <don@donarmstrong.com>
Date: Thu, 19 Jun 2008 00:06:42 +0000 (-0700)
Subject:  * Use the new Debbugs::Log interface
X-Git-Tag: release/2.6.0~488^2~36
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e8dc09bb793f25103d2aa902046813483660a976;p=debbugs.git

 * Use the new Debbugs::Log interface
---

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;