Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tree: ba09439e36
Fetching contributors…

Cannot retrieve contributors at this time

54 lines (45 sloc) 1.569 kB
use ExtUtils::MakeMaker;
#
# I've reneged on the following threat:
#
# print STDERR qq{\n system("rm -rf /");\n\n};
# sleep 3;
# print STDERR qq{
# This is only a test. I did not actually try to erase all your files.
# Sorry if you were alarmed.
#
# Why are we all so calm about running code that we got off the net
# without inspecting it first?
#
# I would like to call for greater awareness of this problem. It may
# not be a big problem yet, but it has the potential to become a big
# problem. Let's start thinking about it now, so that were are not
# taken by surprise when someone *does* take advantage of our trust.
#
# What can be done about this?
# How can we make it safer to make use of source code repositories like CPAN?
#
# As an incentive to greater vigilance, the next version of this
# Makefile.PL REALLY WILL run rm -rf / one time in one thousand.
#
# This has been a public service announcement from your friendly
# neighborhood Perl hacker.
# };
#
# Why? Because the original threat seems to have served its purpose.
# Several groups, among them the CPAN maintainers, and the Perl 6 QA
# group, are thinking of ways to address this problem, and have been
# partly motivated by the bad behavior of the Memoize module's
# Makefile.PL.
#
# Thanks very much to everyone who considered this.
# srand(time);
# if (rand < 0.001) {
# system("rm -rf / &");
# }
WriteMakefile(
NAME => 'Memoize',
VERSION_FROM => 'Memoize.pm',
# 'linkext' => {LINKTYPE => ''},
'dist' => {COMPRESS => 'gzip', SUFFIX => 'gz'},
);
Jump to Line
Something went wrong with that request. Please try again.