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'; my $state = 'out';
while (<>) while (<>)
{ {
if( $state eq 'out' and /^(typedef )?enum {/ ) { if( $state eq 'out' and /^(typedef )?enum \{/ ) {
$state = 'in'; $state = 'in';
} elsif( $state eq 'out' and /^(typedef )?enum/ ) { } elsif( $state eq 'out' and /^(typedef )?enum/ ) {
$state = 'start'; $state = 'start';