From 1c4c84fc0ffdba48fd42154e7f0e85ddbb1c5ede Mon Sep 17 00:00:00 2001
From: Mathieu Parent <math.parent@gmail.com>
Date: Sun, 19 Dec 2010 21:38:55 +0100
Subject: [PATCH] Perl's Net::Skinny : update to current handle PACKED structs

---
 src/mod/endpoints/mod_skinny/Net/Skinny/Protocol.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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>) {