let's write class, not cls

diff --git a/Debian/Debhelper/Buildsystem/cmake.pm b/Debian/Debhelper/Buildsystem/cmake.pm
index 1b5dda402cad048e25d06b8256448c860ebf3bf1..f40b020f8e7a1b204b5ea995972239ff98b4ce67 100644 (file)
--- 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 9ac74fa29f1af88a17d0c06063c98211f5a27b7b..0eab0c4ad3e27b1d6198091daff26eaf9fe76722 100644 (file)
--- 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 d6bd063b37b9d95fcd24b93452a85ad133f0dacf..0360856419ae4e9a11bfa049d1bbdbc4ff74668c 100644 (file)
--- 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 fc86e9bd3237b2062a0c934cfe9cebd518802e74..74eaf6bf37c9038129a3b977898c5fd49bb3e1b8 100644 (file)
--- 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 573ace2a54e88ef058d2ad38b3e069d408295c92..afb13ea161027116805c797f8ab3a91fbafb3fc7 100644 (file)
--- 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");