kenmirrors
/
freeswitch
mirror of https://github.com/signalwire/freeswitch.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Perl's Net::Skinny : update to current handle PACKED structs

This commit is contained in:
Mathieu Parent 2010-12-19 21:38:55 +01:00
parent b84b71defa
commit 1c4c84fc0f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mod/endpoints/mod_skinny/Net/Skinny/Protocol.pm
View File

@ -48,7 +48,7 @@ sub _find {
my ($name, $value) = ($1,hex($2)); my ($name, $value) = ($1,hex($2));
$sub{$name} = sub () { $value }; $sub{$name} = sub () { $value };
$const{$name} = $value; $const{$name} = $value;
} elsif(/^\s*struct\s+([a-z_]+)\s*\{\s*$/) { } elsif(/^\s*struct\s+PACKED\s+([a-z_]+)\s*\{\s*$/) {
my $struct_name = $1; my $struct_name = $1;
$struct{$struct_name} = []; $struct{$struct_name} = [];
while(<$fh>) { while(<$fh>) {