Fix warning from Perl 5.21 in helper script

This commit is contained in:
Manuel Pégourié-Gonnard 2015-07-01 19:32:00 +02:00
parent 5791109707
commit ae738c29eb

View file

@ -14,7 +14,7 @@ my @consts;
my $state = 'out';
while (<>)
{
if( $state eq 'out' and /^(typedef )?enum {/ ) {
if( $state eq 'out' and /^(typedef )?enum \{/ ) {
$state = 'in';
} elsif( $state eq 'out' and /^(typedef )?enum/ ) {
$state = 'start';