rc.d/linux/Makefile.PL

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