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

libsdl-org · Oct 6, 2019 · b38a5ba · b38a5ba
1 parent c61ca91
commit b38a5ba
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/dynapi/gendynapi.pl b/src/dynapi/gendynapi.pl
@@ -49,9 +49,9 @@
 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");
-while (readdir(HEADERS)) {
-    next if not /\.h\Z/;
-    my $header = "include/$_";
+while (my $d = readdir(HEADERS)) {
+    next if not $d =~ /\.h\Z/;
+    my $header = "include/$d";
     open(HEADER, '<', $header) or die("Can't open $header: $!\n");
     while (<HEADER>) {
         chomp;