yeah I should have tested that

uperl · Dec 27, 2024 · 9ca3bc0 · 9ca3bc0
1 parent 58ed4ec
commit 9ca3bc0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Perl/Critic/Policy/Plicease/ProhibitSignaturesAndAtUnderscore.pm b/lib/Perl/Critic/Policy/Plicease/ProhibitSignaturesAndAtUnderscore.pm
@@ -85,7 +85,7 @@ sub violates {
     my $subs = $elem->find('PPI::Statement::Sub') || [];
     foreach my $sub (@$subs) {
       next unless( $PPI::Document::VERSION > 1.279 ?
-        @{$sub->find('PPI::Structure::Signature')} : defined $sub->prototype );
+        @{$sub->find('PPI::Structure::Signature') || []} : defined $sub->prototype );
 
       foreach my $symbol ( _recurse($sub->schildren) ) {
         push @violations, $self->violation(DESC, EXPL, $symbol);