This is an automated email from the git hooks/post-receive script. guillem pushed a commit to branch main in repository dpkg.
View the commit online: https://git.dpkg.org/cgit/dpkg/dpkg.git/commit/?id=600a31364d4b931eac18fa0fd0be45fb27e10b26 commit 600a31364d4b931eac18fa0fd0be45fb27e10b26 Author: Guillem Jover <[email protected]> AuthorDate: Tue Dec 27 23:57:51 2022 +0100 scripts: Fix indentation Changelog: internal --- scripts/Dpkg/Compression.pm | 2 +- scripts/Dpkg/Compression/FileHandle.pm | 4 ++-- scripts/Dpkg/Compression/Process.pm | 6 +++--- scripts/Dpkg/Shlibs/Objdump.pm | 10 ++++++---- scripts/dpkg-architecture.pl | 4 ++-- scripts/dpkg-scansources.pl | 8 ++++---- scripts/dpkg-source.pl | 2 +- 7 files changed, 19 insertions(+), 17 deletions(-) diff --git a/scripts/Dpkg/Compression.pm b/scripts/Dpkg/Compression.pm index 635fefbfc..013b1fc97 100644 --- a/scripts/Dpkg/Compression.pm +++ b/scripts/Dpkg/Compression.pm @@ -226,7 +226,7 @@ given compression method is not supported. sub compression_set_default { my $method = shift; error(g_('%s is not a supported compression'), $method) - unless compression_is_supported($method); + unless compression_is_supported($method); $default_compression = $method; } diff --git a/scripts/Dpkg/Compression/FileHandle.pm b/scripts/Dpkg/Compression/FileHandle.pm index 74eed40ec..5b3fd1c3d 100644 --- a/scripts/Dpkg/Compression/FileHandle.pm +++ b/scripts/Dpkg/Compression/FileHandle.pm @@ -134,7 +134,7 @@ sub new { *$self->{compression} = 'auto'; *$self->{compressor} = Dpkg::Compression::Process->new(); *$self->{add_comp_ext} = $args{add_compression_extension} || - $args{add_comp_ext} || 0; + $args{add_comp_ext} || 0; *$self->{allow_sigpipe} = 0; if (exists $args{filename}) { $self->set_filename($args{filename}); @@ -398,7 +398,7 @@ sub _open_for_write { if ($self->use_compression()) { *$self->{compressor}->compress(from_pipe => \$filehandle, - to_file => $self->get_filename(), %opts); + to_file => $self->get_filename(), %opts); } else { CORE::open($filehandle, '>', $self->get_filename) or syserr(g_('cannot write %s'), $self->get_filename()); diff --git a/scripts/Dpkg/Compression/Process.pm b/scripts/Dpkg/Compression/Process.pm index 2eca734bc..3f08d481e 100644 --- a/scripts/Dpkg/Compression/Process.pm +++ b/scripts/Dpkg/Compression/Process.pm @@ -57,7 +57,7 @@ sub new { bless $self, $class; $self->set_compression($args{compression} || compression_get_default()); $self->set_compression_level($args{compression_level} || - compression_get_default_level()); + compression_get_default_level()); return $self; } @@ -72,7 +72,7 @@ B<Dpkg::Compression>). sub set_compression { my ($self, $method) = @_; error(g_('%s is not a supported compression method'), $method) - unless compression_is_supported($method); + unless compression_is_supported($method); $self->{compression} = $method; } @@ -119,7 +119,7 @@ sub _check_opts { my ($self, %opts) = @_; # Check for proper cleaning before new start error(g_('Dpkg::Compression::Process can only start one subprocess at a time')) - if $self->{pid}; + if $self->{pid}; # Check options my $to = my $from = 0; foreach my $thing (qw(file handle string pipe)) { diff --git a/scripts/Dpkg/Shlibs/Objdump.pm b/scripts/Dpkg/Shlibs/Objdump.pm index e9d90a2be..8701c43b0 100644 --- a/scripts/Dpkg/Shlibs/Objdump.pm +++ b/scripts/Dpkg/Shlibs/Objdump.pm @@ -551,14 +551,16 @@ sub get_symbol { sub get_exported_dynamic_symbols { my $self = shift; - return grep { $_->{defined} && $_->{dynamic} && !$_->{local} } - values %{$self->{dynsyms}}; + return grep { + $_->{defined} && $_->{dynamic} && !$_->{local} + } values %{$self->{dynsyms}}; } sub get_undefined_dynamic_symbols { my $self = shift; - return grep { (!$_->{defined}) && $_->{dynamic} } - values %{$self->{dynsyms}}; + return grep { + (!$_->{defined}) && $_->{dynamic} + } values %{$self->{dynsyms}}; } sub get_needed_libraries { diff --git a/scripts/dpkg-architecture.pl b/scripts/dpkg-architecture.pl index 5cb2957e0..11fb0bdbd 100755 --- a/scripts/dpkg-architecture.pl +++ b/scripts/dpkg-architecture.pl @@ -180,8 +180,8 @@ my $action = 'list'; my $force = 0; sub action_needs($) { - my $bits = shift; - return (($req_info & $bits) == $bits); + my $bits = shift; + return (($req_info & $bits) == $bits); } @ARGV = normalize_options(args => \@ARGV, delim => '-c'); diff --git a/scripts/dpkg-scansources.pl b/scripts/dpkg-scansources.pl index cd19d1b63..465bb5b92 100755 --- a/scripts/dpkg-scansources.pl +++ b/scripts/dpkg-scansources.pl @@ -237,10 +237,10 @@ sub process_dsc { # The priority for the source package is the highest priority of the # binary packages it produces. my @binary_by_priority = sort { - ($override{$a} ? $priority{$override{$a}[O_PRIORITY]} : 0) - <=> - ($override{$b} ? $priority{$override{$b}[O_PRIORITY]} : 0) - } @binary; + ($override{$a} ? $priority{$override{$a}[O_PRIORITY]} : 0) + <=> + ($override{$b} ? $priority{$override{$b}[O_PRIORITY]} : 0) + } @binary; my $priority_override = $override{$binary_by_priority[-1]}; my $priority = $priority_override ? $priority_override->[O_PRIORITY] diff --git a/scripts/dpkg-source.pl b/scripts/dpkg-source.pl index 2df87a6bb..c7c6de255 100755 --- a/scripts/dpkg-source.pl +++ b/scripts/dpkg-source.pl @@ -302,7 +302,7 @@ if ($options{opmode} =~ /^(build|print-format|(before|after)-build|commit)$/) { my $sect = $pkg->{'Section'} || $src_sect; my $prio = $pkg->{'Priority'} || $src_prio; my $type = $pkg->{'Package-Type'} || - $pkg->get_custom_field('Package-Type') || 'deb'; + $pkg->get_custom_field('Package-Type') || 'deb'; my $arch = $pkg->{'Architecture'}; my $profile = $pkg->{'Build-Profiles'}; -- Dpkg.Org's dpkg
