view release on metacpan or  search on metacpan

lib/App/VW/Install.pm  view on Meta::CPAN

|;
};

sub run {
  my ($self) = @_;
  my $src = module_dir('App::VW') . "/etc/init.d/vw-ubuntu";
  my $dst = "/etc/init.d/vw";
  $self->verbose("Copying $src to $dst .\n");
  copy($src, $dst) || die "Can't copy file to $dst:  $!";
  $self->verbose("Making $dst executable.\n");
  chmod(0755, $dst) || die "Can't make $dst executable: $!";
  $self->verbose("Creating /etc/vw .\n");
  if (! -d "/etc/vw" ) {
    mkdir "/etc/vw" || die "Can't create /etc/vw: $!";
  }
  print $self->post_installation_message;
  return;
}

1;