blob: 97caff3b4c07c235c27db847cae29e9315cc3481 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
#! @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;
}
}
|
