summaryrefslogtreecommitdiff
path: root/Debian
diff options
context:
space:
mode:
authorJoey Hess <joey@gnu.kitenet.net>2009-04-20 14:37:49 -0400
committerJoey Hess <joey@gnu.kitenet.net>2009-04-20 14:37:49 -0400
commit714e330012e0b44220312aba526b4ebaa63ef60f (patch)
tree5671618d47cc5fcfdf80361a2bc7baf869693c8d /Debian
parent8bc41beed81ddc5ad864c7387bf61cac85ca739c (diff)
let's write class, not cls
Diffstat (limited to 'Debian')
-rw-r--r--Debian/Debhelper/Buildsystem/cmake.pm4
-rw-r--r--Debian/Debhelper/Buildsystem/makefile.pm4
-rw-r--r--Debian/Debhelper/Buildsystem/perl_build.pm4
-rw-r--r--Debian/Debhelper/Buildsystem/perl_makemaker.pm4
-rw-r--r--Debian/Debhelper/Dh_Buildsystem.pm12
5 files changed, 14 insertions, 14 deletions
diff --git a/Debian/Debhelper/Buildsystem/cmake.pm b/Debian/Debhelper/Buildsystem/cmake.pm
index 1b5dda4..f40b020 100644
--- a/Debian/Debhelper/Buildsystem/cmake.pm
+++ b/Debian/Debhelper/Buildsystem/cmake.pm
@@ -23,8 +23,8 @@ sub check_auto_buildable {
}
sub new {
- my $cls=shift;
- my $self=$cls->SUPER::new(@_);
+ my $class=shift;
+ my $self=$class->SUPER::new(@_);
# Enforce outside-source tree builds.
$self->enforce_outside_source_building();
return $self;
diff --git a/Debian/Debhelper/Buildsystem/makefile.pm b/Debian/Debhelper/Buildsystem/makefile.pm
index 9ac74fa..0eab0c4 100644
--- a/Debian/Debhelper/Buildsystem/makefile.pm
+++ b/Debian/Debhelper/Buildsystem/makefile.pm
@@ -47,8 +47,8 @@ sub DESCRIPTION {
}
sub new {
- my $cls=shift;
- my $self=$cls->SUPER::new(@_);
+ my $class=shift;
+ my $self=$class->SUPER::new(@_);
$self->{makecmd} = (exists $ENV{MAKE}) ? $ENV{MAKE} : "make";
return $self;
}
diff --git a/Debian/Debhelper/Buildsystem/perl_build.pm b/Debian/Debhelper/Buildsystem/perl_build.pm
index d6bd063..0360856 100644
--- a/Debian/Debhelper/Buildsystem/perl_build.pm
+++ b/Debian/Debhelper/Buildsystem/perl_build.pm
@@ -32,8 +32,8 @@ sub do_perl {
}
sub new {
- my $cls=shift;
- my $self= $cls->SUPER::new(@_);
+ my $class=shift;
+ my $self= $class->SUPER::new(@_);
$self->enforce_in_source_building();
return $self;
}
diff --git a/Debian/Debhelper/Buildsystem/perl_makemaker.pm b/Debian/Debhelper/Buildsystem/perl_makemaker.pm
index fc86e9b..74eaf6b 100644
--- a/Debian/Debhelper/Buildsystem/perl_makemaker.pm
+++ b/Debian/Debhelper/Buildsystem/perl_makemaker.pm
@@ -28,8 +28,8 @@ sub check_auto_buildable {
}
sub new {
- my $cls=shift;
- my $self=$cls->SUPER::new(@_);
+ my $class=shift;
+ my $self=$class->SUPER::new(@_);
$self->enforce_in_source_building();
return $self;
}
diff --git a/Debian/Debhelper/Dh_Buildsystem.pm b/Debian/Debhelper/Dh_Buildsystem.pm
index 573ace2..afb13ea 100644
--- a/Debian/Debhelper/Dh_Buildsystem.pm
+++ b/Debian/Debhelper/Dh_Buildsystem.pm
@@ -21,12 +21,12 @@ our $DEB_BUILD_GNU_TYPE = dpkg_architecture_value("DEB_BUILD_GNU_TYPE");
# doing.
sub NAME {
my $self=shift;
- my $cls = ref($self) || $self;
- if ($cls =~ m/^.+::([^:]+)$/) {
+ my $class = ref($self) || $self;
+ if ($class =~ m/^.+::([^:]+)$/) {
return $1;
}
else {
- error("─▒nvalid buildsystem class name: $cls");
+ error("─▒nvalid buildsystem class name: $class");
}
}
@@ -55,9 +55,9 @@ sub DEFAULT_BUILD_DIRECTORY {
# parameters and execute commands to configure build environment if
# is_buildable flag is set on the object.
sub new {
- my ($cls, %opts)=@_;
+ my ($class, %opts)=@_;
- my $self = bless({ builddir => undef, is_buildable => 1 }, $cls);
+ my $self = bless({ builddir => undef, is_buildable => 1 }, $class);
if (exists $opts{builddir}) {
if ($opts{builddir}) {
$self->{builddir} = $opts{builddir};
@@ -161,7 +161,7 @@ sub get_rel2builddir_path {
}
sub _cd {
- my ($cls, $dir)=@_;
+ my ($this, $dir)=@_;
if (! $dh{NO_ACT}) {
verbose_print("cd $dir");
chdir $dir or error("error: unable to chdir to $dir");