PPI::Tokenizer all_tokens() error nest

[kryde]

When PPI::Tokenizer method all_tokens() finds an error, it sets $@ to a PPI::Exception which has its $err->message as another PPI::Exception. Is that meant to be so? It has the unhappy effect of meaning $err->message after all_tokens() is not textual but say "PPI::Exception=HASH(0x814b9704)".

Sample program below illustrating $err->message->message to get the text of the error.

foo.pl.txt