diff options
Diffstat (limited to 'pkgtools/pkglint4/files/build.pl')
-rw-r--r-- | pkgtools/pkglint4/files/build.pl | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/pkgtools/pkglint4/files/build.pl b/pkgtools/pkglint4/files/build.pl new file mode 100644 index 00000000000..e58b4e90ae4 --- /dev/null +++ b/pkgtools/pkglint4/files/build.pl @@ -0,0 +1,25 @@ +#! @PERL@ +# $NetBSD: build.pl,v 1.1 2015/11/25 16:42:21 rillig Exp $ +# + +use strict; +use warnings; + +sub readfile { + my $file = shift; + + local $/ = undef; + open(my $in, "<", $file) || die "failed to read $file: $!"; + my $contents = <$in>; + close($in) || die "failed to read $file: $!"; + + return $contents; +} + +while (my $line = <>) { + if ($line =~ m"^#include (.+)$/") { + print readfile($1); + } else { + print $line; + } +} |