"a".1234 parsed as a string and a float

[finnperl]

I wanted to report this since I find this module very useful Example code:

use PPI;
use Data::Dumper;
print Dumper(PPI::Document->new('"a".1'));

The output is:

$VAR1 = bless( {
'readonly' => '',
'children' => [
bless( {
'children' => [
bless( {
'separator' => '"',
'content' => '"a"'
}, 'PPI::Token::Quote::Double' ),
bless( {
'content' => '.1'
}, 'PPI::Token::Number::Float' )
]
}, 'PPI::Statement' )
],
'tab_width' => 1
}, 'PPI::Document' );

However, for example

perl -e 'print "a".1'

outputs a1, which implies that perl is able to detect . as the concat operator. Looking at the tokenizer, it seems that PPI does not look backwards when it is checking whether . is an operator or part of a float.

[moregan]

Confirmed in PPI 1.220 and on my development branches.

ppidump '"a".1'
                    PPI::Document
                      PPI::Statement
[    1,   1,   1 ]     PPI::Token::Quote::Double    '"a"'
[    1,   4,   4 ]     PPI::Token::Number::Float    '.1'

Thank you for your report