diff options
Diffstat (limited to 'lib/Config/Model/Dpkg/Copyright/License.pm')
-rw-r--r-- | lib/Config/Model/Dpkg/Copyright/License.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/Config/Model/Dpkg/Copyright/License.pm b/lib/Config/Model/Dpkg/Copyright/License.pm index 36ea7ae5..a9133c41 100644 --- a/lib/Config/Model/Dpkg/Copyright/License.pm +++ b/lib/Config/Model/Dpkg/Copyright/License.pm @@ -19,7 +19,8 @@ sub BUILD ($self, @args) { $self->SUPER::BUILD(@args); weaken($self); - $self-> add_check_content( sub { $self->check_unused_licenses(@_);} ) + $self-> add_check_content( sub { $self->check_unused_licenses(@_);} ); + return; } sub check_idx { ## no critic (RequireArgUnpacking) @@ -88,6 +89,7 @@ sub check_unused_licenses ($self,$error, $warn, $fix = 0, $silent = 0) { my $msg = "Unused license: @unused"; push $warn->@*, $msg; + return; } sub prune_unused_licenses ($self, $silent = 0) { @@ -100,5 +102,6 @@ sub prune_unused_licenses ($self, $silent = 0) { foreach my $lic (@unused) { $self->delete("$lic"); } + return; } 1; |