diff options
| author | David Steinbrunner <dsteinbrunner@pobox.com> | 2013-05-21 06:47:05 -0400 |
|---|---|---|
| committer | James E Keenan <jkeenan@cpan.org> | 2013-05-22 19:06:14 -0400 |
| commit | b6a6e9564d193cb709231fad4f4816f447263147 (patch) | |
| tree | 35b879e91992c64547495ea14d60ba30e6a65b96 /regen/reentr.pl | |
| parent | 2effe01f18007a1b28e11f29b319f2b5cd0ae4df (diff) | |
| download | perl-b6a6e9564d193cb709231fad4f4816f447263147.tar.gz | |
typo fixes for regen scripts
Diffstat (limited to 'regen/reentr.pl')
| -rw-r--r-- | regen/reentr.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/regen/reentr.pl b/regen/reentr.pl index 899e83b847..c5e7129f1b 100644 --- a/regen/reentr.pl +++ b/regen/reentr.pl @@ -177,7 +177,7 @@ my %seend; # the type of this function's "D" my %seenm; # all the types my %seenu; # the length of the argument list of this function -while (<DATA>) { # Read in the protypes. +while (<DATA>) { # Read in the protoypes. next if /^\s+$/; chomp; my ($func, $hdr, $type, @p) = split(/\s*\|\s*/, $_, -1); @@ -587,7 +587,7 @@ EOF my $GENFUNC = uc $genfunc; my $D = ifprotomatch($FUNC, grep {/D/} @p); my $d = $seend{$func}; - $d =~ s/\*$//; # snip: we need need the base type. + $d =~ s/\*$//; # snip: we need the base type. push @struct, <<EOF; $seent{$func} _${genfunc}_struct; # if $D |