summaryrefslogtreecommitdiff
path: root/Debian/Debhelper/Buildsystem/perl_build.pm
diff options
context:
space:
mode:
authorJoey Hess <joey@gnu.kitenet.net>2009-04-20 14:41:33 -0400
committerJoey Hess <joey@gnu.kitenet.net>2009-04-20 14:41:33 -0400
commit84f5388446ed30938f5df37f117543ad8b19e73d (patch)
treecf814c2017bfd890ad416e99631c10adbd65c99a /Debian/Debhelper/Buildsystem/perl_build.pm
parent714e330012e0b44220312aba526b4ebaa63ef60f (diff)
use $this rather than $self
Diffstat (limited to 'Debian/Debhelper/Buildsystem/perl_build.pm')
-rw-r--r--Debian/Debhelper/Buildsystem/perl_build.pm30
1 files changed, 15 insertions, 15 deletions
diff --git a/Debian/Debhelper/Buildsystem/perl_build.pm b/Debian/Debhelper/Buildsystem/perl_build.pm
index 0360856..b5ad96d 100644
--- a/Debian/Debhelper/Buildsystem/perl_build.pm
+++ b/Debian/Debhelper/Buildsystem/perl_build.pm
@@ -15,7 +15,7 @@ sub DESCRIPTION {
}
sub check_auto_buildable {
- my ($self, $action) = @_;
+ my ($this, $action) = @_;
# Handles everything
my $ret = -e "Build.PL";
@@ -26,43 +26,43 @@ sub check_auto_buildable {
}
sub do_perl {
- my $self=shift;
+ my $this=shift;
$ENV{MODULEBUILDRC} = "/dev/null";
doit("perl", @_);
}
sub new {
my $class=shift;
- my $self= $class->SUPER::new(@_);
- $self->enforce_in_source_building();
- return $self;
+ my $this= $class->SUPER::new(@_);
+ $this->enforce_in_source_building();
+ return $this;
}
sub configure {
- my $self=shift;
+ my $this=shift;
$ENV{PERL_MM_USE_DEFAULT}=1;
- $self->do_perl("Build.PL", "installdirs=vendor", @_);
+ $this->do_perl("Build.PL", "installdirs=vendor", @_);
}
sub build {
- my $self=shift;
- $self->do_perl("Build", @_);
+ my $this=shift;
+ $this->do_perl("Build", @_);
}
sub test {
- my $self=shift;
- $self->do_perl("Build", "test", @_);
+ my $this=shift;
+ $this->do_perl("Build", "test", @_);
}
sub install {
- my $self=shift;
+ my $this=shift;
my $destdir=shift;
- $self->do_perl("Build", "install", "destdir=$destdir", "create_packlist=0", @_);
+ $this->do_perl("Build", "install", "destdir=$destdir", "create_packlist=0", @_);
}
sub clean {
- my $self=shift;
- $self->do_perl("Build", "--allow_mb_mismatch", 1, "distclean", @_);
+ my $this=shift;
+ $this->do_perl("Build", "--allow_mb_mismatch", 1, "distclean", @_);
}
1;