encounter
/
SDL
mirror of https://github.com/encounter/SDL.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

dynapi: Make gendynapi.pl work on older Perl releases.

This commit is contained in:
Ryan C. Gordon 2019-10-05 20:19:10 -04:00
parent c61ca915fb
commit b38a5ba062
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/dynapi/gendynapi.pl
View File

@ -49,9 +49,9 @@ open(SDL_DYNAPI_PROCS_H, '>>', $sdl_dynapi_procs_h) or die("Can't open $sdl_dyna
open(SDL_DYNAPI_OVERRIDES_H, '>>', $sdl_dynapi_overrides_h) or die("Can't open $sdl_dynapi_overrides_h: $!\n"); open(SDL_DYNAPI_OVERRIDES_H, '>>', $sdl_dynapi_overrides_h) or die("Can't open $sdl_dynapi_overrides_h: $!\n");
opendir(HEADERS, 'include') or die("Can't open include dir: $!\n"); opendir(HEADERS, 'include') or die("Can't open include dir: $!\n");
while (readdir(HEADERS)) { while (my $d = readdir(HEADERS)) {
next if not /\.h\Z/; next if not $d =~ /\.h\Z/;
my $header = "include/$_"; my $header = "include/$d";
open(HEADER, '<', $header) or die("Can't open $header: $!\n"); open(HEADER, '<', $header) or die("Can't open $header: $!\n");
while (<HEADER>) { while (<HEADER>) {
chomp; chomp;