This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make *inline.h behave like *.c
authorJarkko Hietaniemi <jhi@iki.fi>
Tue, 21 Jul 2015 06:49:05 +0000 (09:49 +0300)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 22 Jul 2015 12:33:22 +0000 (08:33 -0400)
t/porting/args_assert.t

index c3188a7..9d4c058 100644 (file)
@@ -44,8 +44,8 @@ if (!@ARGV) {
        # *.c or */*.c
        push @ARGV, $prefix . $1 if m!^((?:[^/]+/)?[^/]+\.c)\t!;
     }
        # *.c or */*.c
        push @ARGV, $prefix . $1 if m!^((?:[^/]+/)?[^/]+\.c)\t!;
     }
-    push @ARGV, $prefix . 'inline.h'; # Special case this '.h' which acts like
-                                      # a '.c'
+    # Special case the *inline.h since they behave like *.c
+    push @ARGV, glob "$prefix/*inline.h";
 }
 
 while (<>) {
 }
 
 while (<>) {