3 use Config qw(%Config);
4 use ExtUtils::MakeMaker;
5 use File::Slurp qw(read_file write_file);
7 # FIXME: Stop hard-coding these variables.
9 DAEMON => '/usr/local/sbin/daemon',
10 bindir => $Config{installbin},
11 localstatedir => '/usr/local/var',
12 sysconfdir => '/usr/local/etc'
15 my $script = read_file('pci-nopaste.in');
17 while (my ($var, $subst) = each %vars) {
18 $script =~ s/\@\Q$var\E\@/$subst/g;
21 print "Writing pci-nopaste\n";
22 write_file('pci-nopaste', $script);
23 chmod 0755, 'pci-nopaste';