Commit: fc6e6fac1b7e22cbfd1a138faeeaf83ff0773564 - Text-Hjson-perl (git)

Commit MetaInfo

• Revisión: fc6e6fac1b7e22cbfd1a138faeeaf83ff0773564 (tree)
• Tiempo: 2023-04-02 03:39:10
• Autor: dyknon <dyknon@user...>
• Commiter: dyknon

Log Message

croak on parse error.

Cambiar Resumen

• modified: lib/Text/Hjson.pm

Diferencia incremental

--- a/lib/Text/Hjson.pm
+++ b/lib/Text/Hjson.pm
@@ -257,6 +257,7 @@ sub consume($$$$){
 sub decode($$){
     my ($self, $in) = @_;
     my ($end, $value) = $self->consume("root", $in, 0);
+    croak "Invalid Hjson string" if(!defined $end);
     pos($in) = $end;
     croak "Garbage after Hjson value" if($in !~ /\G$wsc\z/g);
     $value