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

View File

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