From: Mathieu Parent <math.parent@gmail.com>
Date: Sun, 19 Dec 2010 20:38:55 +0000 (+0100)
Subject: Perl's Net::Skinny : update to current handle PACKED structs
X-Git-Tag: v1.2-rc1~223^2~9^2~7^2~3
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1c4c84fc0ffdba48fd42154e7f0e85ddbb1c5ede;p=thirdparty%2Ffreeswitch.git

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

diff --git a/src/mod/endpoints/mod_skinny/Net/Skinny/Protocol.pm b/src/mod/endpoints/mod_skinny/Net/Skinny/Protocol.pm
index 90de304817..94708881e3 100644
--- a/src/mod/endpoints/mod_skinny/Net/Skinny/Protocol.pm
+++ b/src/mod/endpoints/mod_skinny/Net/Skinny/Protocol.pm
@@ -48,7 +48,7 @@ sub _find {
             my ($name, $value) = ($1,hex($2));
             $sub{$name} = sub () { $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;
             $struct{$struct_name} = [];
             while(<$fh>) {