The iec104's discuss from vlet

iec104's Issues

Missing closing bracket in example code

Hi,

I think you're missing a } in de man-page. In line 1333 of "lib/Net/IEC104.pm" you should also close the second foreach.
I also think you have to pass the ip as a string, not as the dotted decimals.

Regards,

wimpunk.

Segmentation Fault in example client

I'm having trouble getting your module to run. I successfully install and tested Event:Lib using their examples.
Here is what happens when I try your examples:
The server examples sits there and waits, when I run the example client, I get a segmentation fault:

$ perl -d:Trace test_client.pl >trace 2>&1
Segmentation fault
$ tail trace 
>> /usr/local/lib/perl/5.18.1/Net/IEC104.pm:138:     return join( ",", map { sprintf "%02X", $_ } unpack( "C*", shift ) );
>> /usr/local/lib/perl/5.18.1/Net/IEC104.pm:138:     return join( ",", map { sprintf "%02X", $_ } unpack( "C*", shift ) );
>> /usr/local/lib/perl/5.18.1/Net/IEC104.pm:138:     return join( ",", map { sprintf "%02X", $_ } unpack( "C*", shift ) );
>> /usr/local/lib/perl/5.18.1/Net/IEC104.pm:138:     return join( ",", map { sprintf "%02X", $_ } unpack( "C*", shift ) );
>> /usr/local/lib/perl/5.18.1/Net/IEC104.pm:138:     return join( ",", map { sprintf "%02X", $_ } unpack( "C*", shift ) );
>> /usr/local/lib/perl/5.18.1/Net/IEC104.pm:138:     return join( ",", map { sprintf "%02X", $_ } unpack( "C*", shift ) );
>> /usr/local/lib/perl/5.18.1/Net/IEC104.pm:138:     return join( ",", map { sprintf "%02X", $_ } unpack( "C*", shift ) );
>> /usr/local/lib/perl/5.18.1/Net/IEC104.pm:113:     my $d = shift;
>> /usr/local/lib/perl/5.18.1/Net/IEC104.pm:114:     if ( $debug >= $d ) {
>> /usr/local/lib/perl/5.18.1/Net/IEC104.pm:468:         if ( $s->{t3_timer}->pending ) {

Let me know if you need more information.

Recommend Projects