Skip Menu |

This queue is for tickets about the Perl-Tidy CPAN distribution.

Report information
The Basics
Id: 95708
Status: resolved
Priority: 0/
Queue: Perl-Tidy

People
Owner: Nobody in particular
Requestors: RENTOCRON [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 20140328
Fixed in: (no value)



Subject: extra ";" when using "when" word on hashs.
Hello, Here's the sample. input: use strict; use JSON; my $ref = { when => time(), message => 'abc' }; my $json = encode_json { when => time(), message => 'abc' }; my $json2 = encode_json +{ when => time(), message => 'abc' }; output: use strict; use JSON; my $ref = { when => time(), message => 'abc' }; my $json = encode_json { when => time(), message => 'abc'; }; my $json2 = encode_json + { when => time(), message => 'abc' }; ----- As you all can see, using +{ } solves, so, it's not that critic, if the people knew about it, but it's important, because it broken the script! Thank you all!
Subject: Re: [rt.cpan.org #95708] extra ";" when using "when" word on hashs.
Date: Wed, 21 May 2014 05:04:16 -0700
To: "bug-Perl-Tidy [...] rt.cpan.org" <bug-Perl-Tidy [...] rt.cpan.org>
From: Steven Hancock <s7078hancock [...] gmail.com>
Thanks for the bug report, I will fix it in the next release. Steve On Fri, May 16, 2014 at 7:47 AM, Renato Santos de Souza via RT < bug-Perl-Tidy@rt.cpan.org> wrote: Show quoted text
> Fri May 16 10:47:35 2014: Request 95708 was acted upon. > Transaction: Ticket created by RENTOCRON > Queue: Perl-Tidy > Subject: extra ";" when using "when" word on hashs. > Broken in: 20140328 > Severity: Important > Owner: Nobody > Requestors: RENTOCRON@cpan.org > Status: new > Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=95708 > > > > Hello, > > Here's the sample. > > input: > > use strict; > use JSON; > my $ref = { > when => time(), > message => 'abc' > }; > > my $json = encode_json { > when => time(), > message => 'abc' > }; > > > my $json2 = encode_json +{ > when => time(), > message => 'abc' > }; > > > output: > > use strict; > use JSON; > my $ref = { > when => time(), > message => 'abc' > }; > > my $json = encode_json { > when => time(), > message => 'abc'; > }; > > my $json2 = encode_json + { > when => time(), > message => 'abc' > }; > > ----- > > As you all can see, using +{ } solves, so, it's not that critic, if the > people knew about it, but it's important, because it broken the script! > > Thank you all! >
This is fixed in version 20140711, thanks for the report.