Skip to content

Commit dfd1144

Browse files
giterlizzigiterlizzi
committed
FIX "Possible precedence problem between ! and %s" in Perl 5.42
1 parent 6057605 commit dfd1144

File tree

7 files changed

+16
-13
lines changed

7 files changed

+16
-13
lines changed

‎Changes‎

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,8 @@
11
Change history for CVSS
22

3+
1.14 2025-07-05
4+
- FIX "Possible precedence problem between ! and %s" in Perl 5.42
5+
36
1.13 2024-08-16
47
- Return undef in "to_vector_string" if any of "base" metrics is missing
58

‎lib/CVSS.pm‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@ use CVSS::v4 ();
1616

1717
our @EXPORT = qw(encode_cvss decode_cvss cvss_to_xml);
1818

19-
our $VERSION = '1.13';
19+
our $VERSION = '1.14';
2020
$VERSION =~ tr/_//d; ## no critic
2121

2222
my $CVSS_CLASSES = {'2.0' => 'CVSS::v2', '3.0' => 'CVSS::v3', '3.1' => 'CVSS::v3', '4.0' => 'CVSS::v4'};
@@ -268,7 +268,7 @@ L<https://github.com/giterlizzi/perl-CVSS>
268268
269269
=head1 LICENSE AND COPYRIGHT
270270
271-
This software is copyright (c) 2023-2024 by Giuseppe Di Terlizzi.
271+
This software is copyright (c) 2023-2025 by Giuseppe Di Terlizzi.
272272
273273
This is free software; you can redistribute it and/or modify it under
274274
the same terms as the Perl 5 programming language system itself.

‎lib/CVSS/Base.pm‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -7,7 +7,7 @@ use warnings;
77

88
use Carp ();
99

10-
our $VERSION = '1.13';
10+
our $VERSION = '1.14';
1111
$VERSION =~ tr/_//d; ## no critic
1212

1313
use overload '""' => \&to_string, fallback => 1;
@@ -50,7 +50,7 @@ sub new {
5050

5151
my $self = bless {%params}, $class;
5252

53-
if (!$self->version =~ /(2.0|3.[0-1]|4.0)/) {
53+
if ($self->version !~ /(2.0|3.[0-1]|4.0)/) {
5454
Carp::croak 'Invalid CVSS version';
5555
}
5656

@@ -564,7 +564,7 @@ L<https://github.com/giterlizzi/perl-CVSS>
564564
565565
=head1 LICENSE AND COPYRIGHT
566566
567-
This software is copyright (c) 2023-2024 by Giuseppe Di Terlizzi.
567+
This software is copyright (c) 2023-2025 by Giuseppe Di Terlizzi.
568568
569569
This is free software; you can redistribute it and/or modify it under
570570
the same terms as the Perl 5 programming language system itself.

‎lib/CVSS/Constants.pm‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -5,7 +5,7 @@ use strict;
55
use utf8;
66
use warnings;
77

8-
our $VERSION = '1.13';
8+
our $VERSION = '1.14';
99
$VERSION =~ tr/_//d; ## no critic
1010

1111

@@ -874,7 +874,7 @@ L<https://github.com/giterlizzi/perl-CVSS>
874874
875875
=head1 LICENSE AND COPYRIGHT
876876
877-
This software is copyright (c) 2023-2024 by Giuseppe Di Terlizzi.
877+
This software is copyright (c) 2023-2025 by Giuseppe Di Terlizzi.
878878
879879
This is free software; you can redistribute it and/or modify it under
880880
the same terms as the Perl 5 programming language system itself.

‎lib/CVSS/v2.pm‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -11,7 +11,7 @@ use List::Util qw(min);
1111
use base 'CVSS::Base';
1212
use CVSS::Constants ();
1313

14-
our $VERSION = '1.13';
14+
our $VERSION = '1.14';
1515
$VERSION =~ tr/_//d; ## no critic
1616

1717
use constant DEBUG => $ENV{CVSS_DEBUG};
@@ -271,7 +271,7 @@ L<https://github.com/giterlizzi/perl-CVSS>
271271
272272
=head1 LICENSE AND COPYRIGHT
273273
274-
This software is copyright (c) 2023-2024 by Giuseppe Di Terlizzi.
274+
This software is copyright (c) 2023-2025 by Giuseppe Di Terlizzi.
275275
276276
This is free software; you can redistribute it and/or modify it under
277277
the same terms as the Perl 5 programming language system itself.

‎lib/CVSS/v3.pm‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -12,7 +12,7 @@ use Carp ();
1212
use base 'CVSS::Base';
1313
use CVSS::Constants ();
1414

15-
our $VERSION = '1.13';
15+
our $VERSION = '1.14';
1616
$VERSION =~ tr/_//d; ## no critic
1717

1818
use constant DEBUG => $ENV{CVSS_DEBUG};
@@ -510,7 +510,7 @@ L<https://github.com/giterlizzi/perl-CVSS>
510510
511511
=head1 LICENSE AND COPYRIGHT
512512
513-
This software is copyright (c) 2023-2024 by Giuseppe Di Terlizzi.
513+
This software is copyright (c) 2023-2025 by Giuseppe Di Terlizzi.
514514
515515
This is free software; you can redistribute it and/or modify it under
516516
the same terms as the Perl 5 programming language system itself.

‎lib/CVSS/v4.pm‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -11,7 +11,7 @@ use List::Util qw(max min);
1111
use base 'CVSS::Base';
1212
use CVSS::Constants ();
1313

14-
our $VERSION = '1.13';
14+
our $VERSION = '1.14';
1515
$VERSION =~ tr/_//d; ## no critic
1616

1717
use constant DEBUG => $ENV{CVSS_DEBUG};
@@ -826,7 +826,7 @@ L<https://github.com/giterlizzi/perl-CVSS>
826826
827827
=head1 LICENSE AND COPYRIGHT
828828
829-
This software is copyright (c) 2023-2024 by Giuseppe Di Terlizzi.
829+
This software is copyright (c) 2023-2025 by Giuseppe Di Terlizzi.
830830
831831
This is free software; you can redistribute it and/or modify it under
832832
the same terms as the Perl 5 programming language system itself.

0 commit comments

Comments
 (0)