Fix implicit return (PBP)

This commit is contained in:
Dan Church 2023-07-20 12:37:27 -05:00
parent 7dbbb5422a
commit 31fe372e09
Signed by: h3xx
GPG key ID: EA2BF379CD2CDBD0
9 changed files with 14 additions and 10 deletions

View file

@ -19,6 +19,7 @@ sub run {
my $self = shift;
# preserve older time stamp
utime $self->{source}->{atime}, $self->{source}->{mtime}, $self->{target}->{name};
return;
}
sub bytes_freed {

View file

@ -21,7 +21,7 @@ sub new {
sub as_string {
my $self = shift;
join "\n", $self->instructions;
return join "\n", $self->instructions;
}
sub buckets {
@ -55,7 +55,7 @@ sub buckets {
push @buckets, @these_buckets;
}
@buckets
return @buckets;
}
sub _entry_should_be_skipped {
@ -176,7 +176,7 @@ sub instructions {
);
}
}
@inst
return @inst;
}
1;

View file

@ -31,6 +31,7 @@ sub run {
if (--$self->{target}->{nlink} == 0) {
$self->{freed} = $self->{target}->{size};
}
return;
}
sub bytes_freed {