26 lines
437 B
Perl
26 lines
437 B
Perl
#! @PERL@
|
|
# $NetBSD: build.pl,v 1.1 2013/03/26 15:08:29 schmonz 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 =~ /^use PkgLint::(.+);$/) {
|
|
print readfile("PkgLint/$1.pm");
|
|
} else {
|
|
print $line;
|
|
}
|
|
}
|