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;
}