I've attached a diff FWIW.
--
Mark Gardner $ <[email protected]>
On Tue, Apr 14, 2015 at 12:35 PM, Mark Gardner <[email protected]> wrote:
> I've found a workaround until and unless I can get DDS fixed. If you
> replace that empty hash reference {} with a hash reference containing an
> empty list {()}, it compiles OK. I've attached a reduced test case that
> demonstrates the difference.
>
> Would you consider using this syntax as a workaround to XML::Compile::SOAP
> for now?
>
> my @pairs = ( %{delete $data->{Header} || {()}}
> , %{delete $data->{Body} || {()}});
>
>
> --
> Mark Gardner $ <[email protected]>
>
> On Mon, Mar 23, 2015 at 6:06 PM, Mark Overmeer <[email protected]> wrote:
>
>> * Mark Gardner ([email protected]) [150323 21:10]:
>> > syntax error at lib/WebService/Avalara/AvaTax/TaxSvc.pm line 4459, near
>> > "%{{} unless"
>> > syntax error at lib/WebService/Avalara/AvaTax/TaxSvc.pm line 4459, near
>> ";}"
>> > Unmatched right curly bracket at lib/WebService/Avalara/AvaTax/TaxSvc.pm
>> > line 4459, at end of line
>> > Unmatched right curly bracket at lib/WebService/Avalara/AvaTax/TaxSvc.pm
>> > line 4466, at end of line
>> > syntax error at lib/WebService/Avalara/AvaTax/TaxSvc.pm line 4466, near
>> "}"
>>
>> Not all Data::Dump::Streamer versions have the same bugs.
>>
>> It apparently decodes
>>
>> lib/XML/Compile/SOAP.pm
>> my @pairs = ( %{delete $data->{Header} || {}}
>> , %{delete $data->{Body} || {}});
>>
>>
>> into
>> my(@pairs) = ( %{{} unless delete $$data{'Header'};}
>> , %{{} unless delete $$data{'Body'};});
>>
>> which is explainable but incorrect Perl.
>> You may be able to get this resolved.
>>
>> XML::Compile::Dumper may not help your performance at all:
>> Data::Dump::Streamer should have some de-duplication implemented.
>> --
>> Regards,
>>
>> MarkOv
>>
>> ------------------------------------------------------------------------
>> Mark Overmeer MSc MARKOV Solutions
>> [email protected] [email protected]
>> http://Mark.Overmeer.net http://solutions.overmeer.net
>>
>
>
459,460c459,460
< my @pairs = ( %{delete $data->{Header} || {}}
< , %{delete $data->{Body} || {}});
---
> my @pairs = ( %{delete $data->{Header} || {()}}
> , %{delete $data->{Body} || {()}});
_______________________________________________
Xml-compile mailing list
[email protected]
http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/xml-compile
