Commit 4c24394 1 parent 482c3c1 commit 4c24394 Copy full SHA for 4c24394
File tree 2 files changed +3
-3
lines changed
2 files changed +3
-3
lines changed Original file line number Diff line number Diff line change @@ -56,7 +56,7 @@ sub _includes {
56
56
my ( $range , $version ) = @_ ;
57
57
$range = [$range ] unless ref $range ;
58
58
my $rc = 0;
59
- foreach my $r ( $range -> @* ) {
59
+ foreach my $r ( @ $range ) {
60
60
no warnings ' uninitialized' ;
61
61
$rc += CPAN::Audit::Version-> in_range( $version , $r );
62
62
}
Original file line number Diff line number Diff line change @@ -36,14 +36,14 @@ sub format_advisory {
36
36
$s .= " $advisory ->{description}\n " ;
37
37
38
38
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 };
40
40
my $first = shift @v ;
41
41
$s .= " Affected range: $first \n " ;
42
42
$s .= " $_ \n " for @v ;
43
43
}
44
44
45
45
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 };
47
47
my $first = shift @v ;
48
48
$first //= ' ' ;
49
49
$s .= " Fixed range: $first \n " ;
You can’t perform that action at this time.
0 commit comments