view release on metacpan or  search on metacpan

t/06_restart.t  view on Meta::CPAN

  # Build a fake structure
  {
    use File::Path qw/make_path/;

    make_path $exe_path;
    make_path $lib_path;

    open my $exe, '>', $exe_bin;
    print $exe "#!/usr/bin/env perl\nexit 0\n";
    close $exe;
    chmod 0700, $exe_bin;

    open my $fake0, '>', $fake0_bin;
    print $fake0 "#!/usr/bin/env perl\nexit 0\n";
    close $fake0;
  }

  run_restart;
  isnt( scalar @last_ran_params, 0, 'restart_script with enough structure does something' );

  local $0 = $fake0_bin;

test_dists/FakePerl/Configure  view on Meta::CPAN

default:
	touch default
install:
EOF

if [ ! -z "$DESTDIR" ]; then
cat >>Makefile <<EOF
	mkdir -p $DESTDIR/v5.12.0/bin/
	echo "#!/bin/sh" > $DESTDIR/v5.12.0/bin/perl
	echo "echo 'v5.12.0'" >> $DESTDIR/v5.12.0/bin/perl
	chmod 744 $DESTDIR/v5.12.0/bin/perl
EOF
fi

cat >>Makefile <<EOF
	touch install

test_harness:
	touch test_harness
EOF