r55702 - /trunk/dh-make-perl/lib/DhMakePerl/Command/make.pm

[dmn at users.alioth.debian.org]

Author: dmn
Date: Thu Apr  8 05:13:30 2010
New Revision: 55702

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=55702
Log:
make: restore creation of Vcs-* control headers

were lost in the great rewrite

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

Modified: trunk/dh-make-perl/lib/DhMakePerl/Command/make.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/DhMakePerl/Command/make.pm?rev=55702&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl/Command/make.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl/Command/make.pm Thu Apr  8 05:13:30 2010
@@ -166,6 +166,16 @@
     $self->discover_utility_deps( $self->control );
     $src->Standards_Version( $self->debstdversion );
     $src->Homepage( $self->upsurl );
+    if ( $self->cfg->pkg_perl and my $cpan = $self->cfg->cpan ) {
+        $self->control->source->Vcs_Svn(
+            sprintf( "svn://svn.debian.org/pkg-perl/trunk/%s/",
+                $self->pkgname )
+        );
+        $self->control->source->Vcs_Browser(
+            sprintf( "http://svn.debian.org/viewsvn/pkg-perl/trunk/%s/",
+                $self->pkgname )
+        );
+    }
     $self->control->write( $self->debian_file('control') );
 
     $self->create_compat( $self->debian_file('compat') );