X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FSOAP.pm;h=db066bfd870d4c67902b3f51ad5a2b349556b072;hb=f7c407cec69e02bdf54048891cdaa5fcbc18a10b;hp=32e874e0b366626982412b5e6609add1a67c67e1;hpb=34cb2ef70829240d863bade0585e0ced71c65942;p=debbugs.git

diff --git a/Debbugs/SOAP.pm b/Debbugs/SOAP.pm
index 32e874e..db066bf 100644
--- a/Debbugs/SOAP.pm
+++ b/Debbugs/SOAP.pm
@@ -47,7 +47,7 @@ use Storable qw(nstore retrieve);
 use Scalar::Util qw(looks_like_number);
 
 
-our $CURRENT_VERSION = 1;
+our $CURRENT_VERSION = 2;
 
 =head2 get_usertag
 
@@ -262,7 +262,12 @@ architecture. If undef is passed as the architecture, returns a list
 of references to all possible pairs of source package names and
 versions for all architectures, with any duplicates removed.
 
-(This function corresponds to L<Debbugs::Packages::binarytosource>)
+As of comaptibility version 2, this has changed to use the more
+powerful binary_to_source routine, which allows returning source only,
+concatenated scalars, and other useful features.
+
+See the documentation of L<Debbugs::Packages::binary_to_source> for
+details.
 
 =cut
 
@@ -270,7 +275,15 @@ sub binary_to_source{
      my $VERSION = __populate_version(pop);
      my ($self,@params) = @_;
 
-     return [Debbugs::Packages::binarytosource(@params)];
+     if ($VERSION <= 1) {
+	 return [Debbugs::Packages::binary_to_source(binary => $params[0],
+						     (@params > 1)?(version => $params[1]):(),
+						     (@params > 2)?(arch    => $params[2]):(),
+						    )];
+     }
+     else {
+	 return [Debbugs::Packages::binary_to_source(@params)];
+     }
 }
 
 =head2 source_to_binary