From: Debian BTS <debbugs@rietz>
Date: Mon, 25 Feb 2008 21:56:36 +0000 (+0000)
Subject: merge changes from dla source
X-Git-Tag: release/2.6.0~494
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f63ec4dd931f010b7c7ba054d216cd5c3bbd6d4a;hp=8e11a6d15510f16dfb1a98a16df721b7e78f1b58;p=debbugs.git

merge changes from dla source
---

diff --git a/Debbugs/SOAP.pm b/Debbugs/SOAP.pm
index 1006ff8..ed66b18 100644
--- a/Debbugs/SOAP.pm
+++ b/Debbugs/SOAP.pm
@@ -274,8 +274,9 @@ versions for all architectures, with any duplicates removed.
 
 sub binary_to_source{
      my $VERSION = __populate_version(pop);
+     my ($self,@params) = @_;
 
-     return [binarytosource(@_)];
+     return [binarytosource(@params)];
 }
 
 =head2 source_to_binary
@@ -294,8 +295,9 @@ architecture is not returned.
 
 sub source_to_binary {
      my $VERSION = __populate_version(pop);
+     my ($self,@params) = @_;
 
-     return [source_to_binary(@_)];
+     return [source_to_binary(@params)];
 }
 
 =head2 get_versions
@@ -338,8 +340,9 @@ This function correponds to L<Debbugs::Packages::get_versions>
 
 sub get_versions{
      my $VERSION = __populate_version(pop);
+     my ($self,@params) = @_;
 
-     return scalar Debbugs::Packages::get_versions(@_);
+     return scalar Debbugs::Packages::get_versions(@params);
 }
 
 =head1 VERSION COMPATIBILITY