view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
# we shouldn't really depend on it. See RT #24194 for detail.
# (Also, this module only supports Perl 5.6 and above).
eval "use Win32::UTCFileTime" if $^O eq 'MSWin32' && $] >= 5.006;
 
# If the script that is loading Module::Install is from the future,
# then make will detect this and cause it to re-run over and over
# again. This is bad. Rather than taking action to touch it (which
# is unreliable on some platforms and requires write permissions)
# for now we should catch this and refuse to run.
if ( -f $0 ) {
        my $s = (stat($0))[9];
 
        # If the modification time is only slightly in the future,
        # sleep briefly to remove the problem.
        my $a = $s - time;
        if ( $a > 0 and $a < 5 ) { sleep 5 }
 
        # Too far in the future, throw an error.
        my $t = time;
        if ( $s > $t ) { die <<"END_DIE" }

lib/Acme/W.pm  view on Meta::CPAN

139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
s/([^\$\w\d])state([^\w\d])/$1WWWwWW$2/g;
s/([^\$\w\d])srand([^\w\d])/$1WWWwWw$2/g;
s/([^\$\w\d])split([^\w\d])/$1WWWwwW$2/g;
s/([^\$\w\d])sleep([^\w\d])/$1WWWwww$2/g;
s/([^\$\w\d])shift([^\w\d])/$1WWwWWW$2/g;
s/([^\$\w\d])semop([^\w\d])/$1WWwWWw$2/g;
s/([^\$\w\d])rmdir([^\w\d])/$1WWwWwW$2/g;
s/([^\$\w\d])reset([^\w\d])/$1WWwWww$2/g;
s/([^\$\w\d])print([^\w\d])/$1WWwwWW$2/g;
s/([^\$\w\d])mkdir([^\w\d])/$1WWwwWw$2/g;
s/([^\$\w\d])lstat([^\w\d])/$1WWwwwW$2/g;
s/([^\$\w\d])local([^\w\d])/$1WWwwww$2/g;
s/([^\$\w\d])ioctl([^\w\d])/$1WwWWWW$2/g;
s/([^\$\w\d])index([^\w\d])/$1WwWWWw$2/g;
s/([^\$\w\d])given([^\w\d])/$1WwWWwW$2/g;
s/([^\$\w\d])flock([^\w\d])/$1WwWWww$2/g;
s/([^\$\w\d])fcntl([^\w\d])/$1WwWwWW$2/g;
s/([^\$\w\d])elsif([^\w\d])/$1WwWwWw$2/g;
s/([^\$\w\d])crypt([^\w\d])/$1WwWwwW$2/g;
s/([^\$\w\d])close([^\w\d])/$1WwWwww$2/g;
s/([^\$\w\d])chown([^\w\d])/$1WwwWWW$2/g;

lib/Acme/W.pm  view on Meta::CPAN

165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
s/([^\$\w\d])atan2([^\w\d])/$1WwwwwW$2/g;
s/([^\$\w\d])alarm([^\w\d])/$1Wwwwww$2/g;
s/([^\$\w\d])CHECK([^\w\d])/$1wWWWWW$2/g;
s/([^\$\w\d])BEGIN([^\w\d])/$1wWWWWw$2/g;
s/([^\$\w\d])when([^\w\d])/$1wWWWwW$2/g;
s/([^\$\w\d])warn([^\w\d])/$1wWWWww$2/g;
s/([^\$\w\d])wait([^\w\d])/$1wWWwWW$2/g;
s/([^\$\w\d])time([^\w\d])/$1wWWwWw$2/g;
s/([^\$\w\d])tied([^\w\d])/$1wWWwwW$2/g;
s/([^\$\w\d])tell([^\w\d])/$1wWWwww$2/g;
s/([^\$\w\d])stat([^\w\d])/$1wWwWWW$2/g;
s/([^\$\w\d])sqrt([^\w\d])/$1wWwWWw$2/g;
s/([^\$\w\d])sort([^\w\d])/$1wWwWwW$2/g;
s/([^\$\w\d])send([^\w\d])/$1wWwWww$2/g;
s/([^\$\w\d])seek([^\w\d])/$1wWwwWW$2/g;
s/([^\$\w\d])redo([^\w\d])/$1wWwwWw$2/g;
s/([^\$\w\d])recv([^\w\d])/$1wWwwwW$2/g;
s/([^\$\w\d])read([^\w\d])/$1wWwwww$2/g;
s/([^\$\w\d])rand([^\w\d])/$1wwWWWW$2/g;
s/([^\$\w\d])push([^\w\d])/$1wwWWWw$2/g;
s/([^\$\w\d])pipe([^\w\d])/$1wwWWwW$2/g;