-
Notifications
You must be signed in to change notification settings - Fork 2
/
Makefile.PL
49 lines (45 loc) · 1.53 KB
/
Makefile.PL
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
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'},
);