X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=blobdiff_plain;f=Debbugs%2FVersion%2FBinary.pm;h=25d7020005e0689e5df66294a001888276e58dc1;hp=d787fc780de2aefe11e398cf5b7d71feb86808f8;hb=288859ac0b478e3083882638f985c3b006035b1d;hpb=68d10ba58a8277b0dde313de86507798defa9b55

diff --git a/Debbugs/Version/Binary.pm b/Debbugs/Version/Binary.pm
index d787fc7..25d7020 100644
--- a/Debbugs/Version/Binary.pm
+++ b/Debbugs/Version/Binary.pm
@@ -45,7 +45,7 @@ has source_version => (is => 'ro',
 sub _build_source_version {
     my $self = shift;
     my $source_version =
-	$self->package->
+	$self->pkg->
 	get_source_version(version => $self->version,
 			   $self->_count_archs?(archs => [$self->_archs]):(),
 			  );
@@ -59,6 +59,11 @@ sub _build_source_version {
 					);
 }
 
+sub src_pkg_ver {
+    my $self = shift;
+    return $self->source->src_pkg_ver;
+}
+
 has archs => (is => 'bare',
 	      isa => 'ArrayRef[Str]',
 	      builder => '_build_archs',
@@ -76,7 +81,7 @@ sub _build_archs {
 
 sub arch {
     my $self = shift;
-    return $self->_count_archs > 0?join('',$self->_archs):'any';
+    return $self->_count_archs > 0?join(',',$self->_archs):'any';
 }