view release on metacpan or  search on metacpan

t/generated_app.t  view on Meta::CPAN

my $MAKE = $Config{make} || 'make';

my $escaped_path = $instdir;
$escaped_path =~ s/\\/\\\\/g;
if ($escaped_path =~ s/ /\\ /g) {
  $escaped_path = qq{"$escaped_path"};
}

$ENV{PERL_MM_OPT} = "INSTALL_BASE=$escaped_path";

if ($ENV{MAKEFLAGS}) {
    $ENV{MAKEFLAGS} =~ s/PREFIX=[^\s]+//;
    $ENV{MAKEFLAGS} =~ s/INSTALL_BASE=[^\s]+//;
}

my $dir = tempdir(CLEANUP => 1);
my $devnull = devnull;

note "Generated app is in $dir";

chdir $dir or die "Cannot chdir to $dir: $!";

{