lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/deps/lib/perl5/PPI/Token/Number/Octal.pm in javonet-ruby-sdk-2.1.14 vs lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/deps/lib/perl5/PPI/Token/Number/Octal.pm in javonet-ruby-sdk-2.2.0

- old
+ new

@@ -27,11 +27,11 @@ =cut use strict; use PPI::Token::Number (); -our $VERSION = '1.277'; +our $VERSION = '1.278'; our @ISA = "PPI::Token::Number"; =pod @@ -53,9 +53,11 @@ sub literal { my $self = shift; return if $self->{_error}; my $str = $self->_literal; + # oct supports '0o' notation only since 5.34 + $str =~ s (^0[oO]) (0); my $neg = $str =~ s/^\-//; my $val = oct $str; return $neg ? -$val : $val; }