r54337 - /trunk/dh-make-perl/lib/DhMakePerl/Command/make.pm
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Sun Mar 14 17:35:36 UTC 2010
Author: dmn
Date: Sun Mar 14 17:35:30 2010
New Revision: 54337
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54337
Log:
make: drop now unussed create_control()
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=54337&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl/Command/make.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl/Command/make.pm Sun Mar 14 17:35:30 2010
@@ -634,65 +634,6 @@
return $bugs[0];
}
-sub create_control {
- my ( $self, $file ) = @_;
-
- my $fh = $self->_file_w($file);
-
- if ( $self->arch ne 'all'
- and !defined($self->cfg->bdepends)
- and !defined($self->cfg->bdependsi) )
- {
- $self->bdepends->add( $self->bdependsi );
- @{ $self->bdependsi } = ();
- }
-
- $fh->printf( "Source: %s\n", $self->srcname );
- $fh->printf( "Section: %s\n", $self->section );
- $fh->printf( "Priority: %s\n", $self->priority );
- local $Text::Wrap::break = ', ';
- local $Text::Wrap::separator = ",\n";
- $fh->print( wrap( '', ' ', "Build-Depends: " . $self->bdepends . "\n" ) )
- if $self->bdepends;
-
- $fh->print(
- wrap( '', ' ', "Build-Depends-Indep: " . $self->bdependsi . "\n" ) )
- if $self->bdependsi;
-
- $fh->print( $self->extrasfields ) if defined $self->extrasfields;
-
- if ($self->cfg->pkg_perl) {
- $fh->print(
- "Maintainer: Debian Perl Group <pkg-perl-maintainers\@lists.alioth.debian.org>\n"
- );
- $fh->printf( "Uploaders: %s\n", $self->maintainer );
- }
- else {
- $fh->printf( "Maintainer: %s\n", $self->maintainer );
- }
- $fh->printf( "Standards-Version: %s\n", $self->debstdversion );
- $fh->printf( "Homepage: %s\n", $self->upsurl );
- do {
- $fh->printf( "Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/%s/\n",
- $self->srcname );
- $fh->printf(
- "Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/%s/\n",
- $self->srcname
- );
- } if $self->cfg->pkg_perl;
- $fh->print("\n");
- $fh->printf( "Package: %s\n", $self->pkgname );
- $fh->printf( "Architecture: %s\n", $self->arch );
- $fh->print( wrap( '', ' ', "Depends: " . $self->depends . "\n" ) )
- if $self->depends;
- $fh->print( $self->extrapfields ) if defined $self->extrapfields;
- $fh->printf(
- "Description:%s%s\n%s\n .\n This description was automagically extracted from the module by dh-make-perl.\n",
- ( $self->desc =~ m/^ / ) ? "" : " ", $self->desc, $self->longdesc,
- );
- $fh->close;
-}
-
sub create_changelog {
my ( $self, $file, $bug ) = @_;
More information about the Pkg-perl-cvs-commits
mailing list