diff options
Diffstat (limited to 'lang/perl/BerkeleyDB/scan.pl')
| -rw-r--r-- | lang/perl/BerkeleyDB/scan.pl | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/lang/perl/BerkeleyDB/scan.pl b/lang/perl/BerkeleyDB/scan.pl index 3fce7a8d..ed0282b3 100644 --- a/lang/perl/BerkeleyDB/scan.pl +++ b/lang/perl/BerkeleyDB/scan.pl @@ -102,8 +102,8 @@ sub scan foreach $define (sort keys %seen_define) { my $out = $filler ; - substr($out,0, length $define) = $define; - $result .= "\t$out => $seen_define{$define},\n" ; + substr($out,0, length $define) = $define; + $result .= "\t$out => $seen_define{$define},\n" ; } while ($file =~ /\btypedef\s+enum\s*{(.*?)}\s*(\w+)/gs ) @@ -120,8 +120,9 @@ sub scan my @tokens = map { s/\s*=.*// ; $_} split /\s*,\s*/, $enum ; my @new = grep { ! $Enums{$_}++ } @tokens ; - if (@new) - { + + if (@new) + { my $value ; if ($ignore) { $value = "IGNORE, # $version" } @@ -130,14 +131,14 @@ sub scan $result .= "\n\t# enum $name\n"; my $out = $filler ; - foreach $name (@new) - { + foreach $name (@new) + { next if $ignore_exact_enum{$name} ; - $out = $filler ; - substr($out,0, length $name) = $name; + $out = $filler ; + substr($out,0, length $name) = $name; $result .= "\t$out => $value\n" ; - } - } + } + } } return $result ; |