Use pkg for the Debbugs::Package and package for the name

[debbugs.git] / Debbugs / Version / Binary.pm

diff --git a/Debbugs/Version/Binary.pm b/Debbugs/Version/Binary.pm
index d787fc780de2aefe11e398cf5b7d71feb86808f8..25d7020005e0689e5df66294a001888276e58dc1 100644 (file)
--- 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';
 }