view release on metacpan or  search on metacpan

lib/App/TestOnTap/PackInfo.pm  view on Meta::CPAN

	exit(42);
}
SCRIPT

	write_file($scriptFile, $script) || die("Failed to write '$scriptFile': $!\n");
	
	if (!$IS_WINDOWS)
	{
		my $mode = (stat($scriptFile))[2];
		$mode |= 0100;
		chmod($mode, $scriptFile);
	}
	 
	return $scriptFile;
}

1;