view release on metacpan or  search on metacpan

ThrustModuleBuild.pm  view on Meta::CPAN

sub extract_zip_file {
  my $self = shift;

  system("mkdir -p blib/lib/auto/share/dist/Alien-Thrust/"); ## FIXME: portability

  if ($^O =~ /darwin/i) {
    ## Archive::Extract appears to break ThrustShell.App - maybe doesn't extract some meta-data or something?
    system("unzip -oqq $thrust_archive -d blib/lib/auto/share/dist/Alien-Thrust/");
  } else {
    unzip($thrust_archive, 'blib/lib/auto/share/dist/Alien-Thrust/');
    chmod(0755, 'blib/lib/auto/share/dist/Alien-Thrust/thrust_shell');
  }
}




## The following unzip() routine is by Daniel S. Sterling (from https://gist.github.com/eqhmcow/5389877)
## "licensed under GPL 2 and/or Artistic license; aka free perl software"

=pod