view release on metacpan or  search on metacpan

BuildStem.pm  view on Meta::CPAN

#print "SCR @scripts\n" ;
	foreach my $file ( @scripts ) {

		my $bin_dir = File::Spec->catdir(
				$self->blib,
				$file =~ /_demo$/ ? 'demo' : 'bin' ) ;

		File::Path::mkpath( $bin_dir );
  
		my $result = $self->copy_if_modified(
			$file, $bin_dir, 'flatten') or next;

#print "COPY $file\n" ;
		$self->fix_run_stem($result);
		$self->fix_demos($result);
		$self->fix_shebang_line($result);
		$self->make_executable($result);
	}
}