Skip to content

Commit 4c24394

Browse files
committed
Remove more postfix derefs for better compatibility
1 parent 482c3c1 commit 4c24394

File tree

2 files changed

+3
-3
lines changed

2 files changed

+3
-3
lines changed

lib/CPAN/Audit/Query.pm

+1-1
Original file line numberDiff line numberDiff line change
@@ -56,7 +56,7 @@ sub _includes {
5656
my( $range, $version ) = @_;
5757
$range = [$range] unless ref $range;
5858
my $rc = 0;
59-
foreach my $r ( $range->@* ) {
59+
foreach my $r ( @$range ) {
6060
no warnings 'uninitialized';
6161
$rc += CPAN::Audit::Version->in_range( $version, $r );
6262
}

script/cpan-audit

+2-2
Original file line numberDiff line numberDiff line change
@@ -36,14 +36,14 @@ sub format_advisory {
3636
$s .= " $advisory->{description}\n";
3737

3838
if ( $advisory->{affected_versions} ) {
39-
my @v = ref $advisory->{affected_versions} ? $advisory->{affected_versions}->@* : $advisory->{affected_versions};
39+
my @v = ref $advisory->{affected_versions} ? @{$advisory->{affected_versions}} : $advisory->{affected_versions};
4040
my $first = shift @v;
4141
$s .= " Affected range: $first\n";
4242
$s .= " $_\n" for @v;
4343
}
4444

4545
if ( $advisory->{fixed_versions} ) {
46-
my @v = ref $advisory->{fixed_versions} ? $advisory->{fixed_versions}->@* : $advisory->{fixed_versions};
46+
my @v = ref $advisory->{fixed_versions} ? @{$advisory->{fixed_versions}} : $advisory->{fixed_versions};
4747
my $first = shift @v;
4848
$first //= '';
4949
$s .= " Fixed range: $first\n";

0 commit comments

Comments
 (0)