r54452 - /trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm

[dmn at users.alioth.debian.org]

Author: dmn
Date: Wed Mar 17 20:31:32 2010
New Revision: 54452

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54452
Log:
use the srcname and pkgname helper methods a bit more

Modified:
    trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm

Modified: trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm?rev=54452&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm Wed Mar 17 20:31:32 2010
@@ -661,7 +661,7 @@
 sub update_file_list( $ % ) {
     my ( $self, %p ) = @_;
 
-    my $pkgname = $self->control->binary->Values(0)->Package;
+    my $pkgname = $self->pkgname;
 
     while ( my ( $file, $new_content ) = each %p ) {
         next unless @$new_content;