Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 449 lines (338 sloc) 12.163 kB
f283eba @pjcj import Devel::Cover 0.32
authored
1 #!/usr/bin/perl
692f58f @pjcj import Devel::Cover 0.01
authored
2
ee0c3e1 @pjcj Add extra options for coverage criteria.
authored
3 # Copyright 2001-2005, Paul Johnson (pjcj@cpan.org)
692f58f @pjcj import Devel::Cover 0.01
authored
4
5 # This software is free. It is licensed under the same terms as Perl itself.
6
7 # The latest version of this software should be available from my homepage:
8 # http://www.pjcj.net
9
10 require 5.6.1;
11
12 use strict;
13 use warnings;
14
c8c4341 @pjcj import Devel::Cover 0.15
authored
15 use Cwd;
692f58f @pjcj import Devel::Cover 0.01
authored
16 use ExtUtils::MakeMaker;
7a80026 @pjcj import Devel::Cover 0.21
authored
17 use ExtUtils::Manifest "maniread";
9f93b0b @pjcj import Devel::Cover 0.35
authored
18 use File::Copy;
692f58f @pjcj import Devel::Cover 0.01
authored
19
20 $| = 1;
21
77f12a0 @pjcj Bump version to 0.54.
authored
22 my $Version = "0.54";
23 my $Date = "13th September 2005";
9f93b0b @pjcj import Devel::Cover 0.35
authored
24 my $Author = 'pjcj@cpan.org';
692f58f @pjcj import Devel::Cover 0.01
authored
25
9f93b0b @pjcj import Devel::Cover 0.35
authored
26 my @perlbug = ("perlbug", "-a", $Author,
27 "-s", "Installation of Devel::Cover $Version");
28 my $Perlbug = join " ", map { / / ? "'$_'" : $_ } @perlbug;
7a80026 @pjcj import Devel::Cover 0.21
authored
29
9f93b0b @pjcj import Devel::Cover 0.35
authored
30 my @files = sort keys %{maniread()}, "lib/Devel/Cover/Inc.pm";
31 my @versions = grep { $_ ne "README" && $_ ne "Makefile.PL" } @files;
692f58f @pjcj import Devel::Cover 0.01
authored
32
9f93b0b @pjcj import Devel::Cover 0.35
authored
33 my $base = getcwd;
c8c4341 @pjcj import Devel::Cover 0.15
authored
34
b768db3 @pjcj import Devel::Cover 0.45
authored
35 my %inc = map { -d $_ ? (($_ eq "." ? $_ : Cwd::abs_path($_)) => 1) : () }
36 @INC;
9f93b0b @pjcj import Devel::Cover 0.35
authored
37 my @inc = sort keys %inc;
c8c4341 @pjcj import Devel::Cover 0.15
authored
38
39 open I, ">lib/Devel/Cover/Inc.pm"
40 or die "Cannot open lib/Devel/Cover/Inc.pm: $!";
69a8165 @pjcj import Devel::Cover 0.10
authored
41 print I <<"EOI";
ee0c3e1 @pjcj Add extra options for coverage criteria.
authored
42 # Copyright 2001-2005, Paul Johnson (pjcj\@cpan.org)
2717da1 @pjcj import Devel::Cover 0.08
authored
43
44 # This software is free. It is licensed under the same terms as Perl itself.
45
46 # The latest version of this software should be available from my homepage:
47 # http://www.pjcj.net
48
49 # This file was automatically generated by Makefile.PL.
50
51 package Devel::Cover::Inc;
52
53 use strict;
54 use warnings;
55
6a889d3 @pjcj import Devel::Cover 0.48
authored
56 our \$VERSION = "$Version";
57 our \$Perl = '$^X';
58 our \$Perl_version = '$]';
59 our \$Base = '$base';
60 our \@Inc = qw( @inc );
61
62 if (\$Perl_version ne \$])
63 {
64 print STDERR <<"EOM";
65
66 This version of Devel::Cover was built with Perl version \$Perl_version.
67 It is now being run with Perl version \$].
68 Attempting to make adjustments, but you may find that some of your modules do
69 not have coverage data collected. You may need to alter the +-inc, +-ignore
70 and +-select options.
71
72 EOM
73 eval "use Cwd";
74 my \%inc = map { -d \$_ ? ((\$_ eq "." ? \$_ : Cwd::abs_path(\$_)) => 1) : () }
75 \@INC;
76 \@INC = sort keys \%inc;
77 }
78
79 # TODO - check for threadedness, 64bits etc. ?
2717da1 @pjcj import Devel::Cover 0.08
authored
80
81 1
69a8165 @pjcj import Devel::Cover 0.10
authored
82 EOI
c8c4341 @pjcj import Devel::Cover 0.15
authored
83 close I or die "Cannot close lib/Devel/Cover/Inc.pm: $!";
2717da1 @pjcj import Devel::Cover 0.08
authored
84
c8c4341 @pjcj import Devel::Cover 0.15
authored
85 print "Writing tests ........ ";
692f58f @pjcj import Devel::Cover 0.01
authored
86
c8c4341 @pjcj import Devel::Cover 0.15
authored
87 unless (-d "t")
88 {
89 mkdir "t" or die "Cannot mkdir t: $!";
90 }
91
92 opendir D, "tests" or die "Cannot opendir tests: $!";
93 for my $t (readdir D)
94 {
95 next unless -f "tests/$t";
b768db3 @pjcj import Devel::Cover 0.45
authored
96 next if $t =~ /\.(pm|pl|version|org|bak|uncoverable)$/;
c8c4341 @pjcj import Devel::Cover 0.15
authored
97 next if $t =~ /~$/;
9f93b0b @pjcj import Devel::Cover 0.35
authored
98
99 if ($t =~ /\.t/)
100 {
101 copy("tests/$t", "t/$t") or die "Cannot copy tests/$t to t/$t: $!";
102 next
103 }
104
c8c4341 @pjcj import Devel::Cover 0.15
authored
105 open T, ">t/a$t.t" or die "Cannot open t/a$t.t: $!";
106 print T <<EOT;
107 #!$^X
108
ee0c3e1 @pjcj Add extra options for coverage criteria.
authored
109 # Copyright 2002-2005, Paul Johnson (pjcj\@cpan.org)
c8c4341 @pjcj import Devel::Cover 0.15
authored
110
111 # This software is free. It is licensed under the same terms as Perl itself.
112
113 # The latest version of this software should be available from my homepage:
114 # http://www.pjcj.net
115
116 use strict;
117 use warnings;
118
119 use lib "$base/lib";
120 use lib "$base/blib/lib";
121 use lib "$base/blib/arch";
122 use lib "$base/t";
123
124 use Devel::Cover::Test $Version;
125
8553592 @pjcj Allow for easier update of golden results for complicated tests.
authored
126 Devel::Cover::Test->new("$t");
c8c4341 @pjcj import Devel::Cover 0.15
authored
127 EOT
128 close T or die "Cannot open t/a$t.t: $!";
129 }
130 closedir D or die "Cannot closedir tests: $!";
131
132 print "done\n\n";
133
134 my $e;
135
5309600 @pjcj Test against perl-5.8.7.
authored
136 print "checking for Storable.pm ........ ";
a0df00b @pjcj import Devel::Cover 0.27
authored
137
138 $e = <<EOM;
139
140 Storable.pm is required to store the coverage database. You can
141 download Storable from CPAN.
142
143 EOM
144
145 eval "use Storable";
146 if (my $m = $INC{"Storable.pm"})
147 {
148 my $v = eval { no warnings; $Storable::VERSION };
149 print "$v $m\n";
150 }
151 else
152 {
153 print "not found\n\n$e\n";
154 }
155
5309600 @pjcj Test against perl-5.8.7.
authored
156 print "checking for Digest::MD5.pm ........ ";
cb76b0d @pjcj import Devel::Cover 0.28
authored
157
158 $e = <<EOM;
159
160 Digest::MD5.pm is required to check whether covered files have changed.
161 You can download Digest::MD5 from CPAN.
162
163 EOM
164
165 eval "use Digest::MD5";
166 if (my $m = $INC{"Digest/MD5.pm"})
167 {
168 my $v = eval { no warnings; $Digest::MD5::VERSION };
169 print "$v $m\n";
170 }
171 else
172 {
173 print "not found\n\n$e\n";
174 }
175
5309600 @pjcj Test against perl-5.8.7.
authored
176 print "checking for Template.pm version 2.00 ........ ";
f19d228 @pjcj import Devel::Cover 0.43
authored
177
178 $e = <<EOM;
179
5309600 @pjcj Test against perl-5.8.7.
authored
180 Template.pm 2.00 is required to run the some HTML backends to cover and
fd354c7 @pjcj import Devel::Cover 0.44
authored
181 for cpancover. Unless you have specific requirements this should not be
f19d228 @pjcj import Devel::Cover 0.43
authored
182 a problem, but you will not be able to use these reports until you
183 install the Template Toolkit, available from CPAN. In the meantime you
184 may continue to use the rest of Devel::Cover.
185
186 EOM
187
188 eval "use Template";
189 if (my $m = $INC{"Template.pm"})
190 {
191 my $v = eval { no warnings; $Template::VERSION };
192 print $v < 2.00 ? "$v\n\n$e\n" : "$v $m\n";
193 }
194 else
195 {
196 print "not found\n\n$e\n";
197 }
692f58f @pjcj import Devel::Cover 0.01
authored
198
5309600 @pjcj Test against perl-5.8.7.
authored
199 print "checking for Pod::Coverage.pm version 0.06 ........ ";
b6b6594 @pjcj import Devel::Cover 0.12
authored
200
c8c4341 @pjcj import Devel::Cover 0.15
authored
201 $e = <<EOM;
b6b6594 @pjcj import Devel::Cover 0.12
authored
202
203 Pod::Coverage.pm 0.06 is required to do pod coverage. This will tell
204 you how well you have documented your modules. Pod coverage will be
205 unavailable until you install this module, available from CPAN. In the
c8c4341 @pjcj import Devel::Cover 0.15
authored
206 meantime, you may continue to use the rest of Devel::Cover.
b6b6594 @pjcj import Devel::Cover 0.12
authored
207 EOM
3884285 @pjcj import Devel::Cover 0.11
authored
208
209 eval "use Pod::Coverage";
210 if (my $m = $INC{"Pod/Coverage.pm"})
211 {
c8c4341 @pjcj import Devel::Cover 0.15
authored
212 my $v = eval { no warnings; $Pod::Coverage::VERSION };
213 print $v < 0.06 ? "$v\n\n$e\n" : "$v $m\n";
5309600 @pjcj Test against perl-5.8.7.
authored
214
215 print "checking for Pod::Coverage::CountParents.pm ........ ";
216
217 $e = <<EOM;
218
219 Pod::Coverage::CountParents.pm is used for Pod coverage if it is available.
220 We will fall back to using Pod::Coverage.pm. If you want to use
221 Pod::Coverage::CountParents.pm, just install it from CPAN.
222 EOM
223
224 eval "use Pod::Coverage::CountParents";
225 if (my $m = $INC{"Pod/Coverage/CountParents.pm"})
226 {
227 my $v = eval { no warnings; $Pod::Coverage::CountParents::VERSION };
228 $v ||= " ";
229 print "$v $m\n";
230 }
231 else
232 {
233 print "not found\n\n$e\n";
234 }
235
3884285 @pjcj import Devel::Cover 0.11
authored
236 }
237 else
238 {
c8c4341 @pjcj import Devel::Cover 0.15
authored
239 print "not found\n\n$e\n";
3884285 @pjcj import Devel::Cover 0.11
authored
240 }
241
5309600 @pjcj Test against perl-5.8.7.
authored
242 print "checking for Test::Differences.pm ........ ";
c483236 @pjcj import Devel::Cover 0.39
authored
243
244 $e = <<EOM;
245
fd354c7 @pjcj import Devel::Cover 0.44
authored
246 Test::Differences.pm is used to display output from failed tests.
247 Hopefully there won't be any failed tests, but if there are you will get
248 output that may not be a model of clarity. If you do get test failures
249 and you fancy helping me by debugging them, then you might like to
250 consider installing Test::Differences. You can download
251 Test::Differences from CPAN.
c483236 @pjcj import Devel::Cover 0.39
authored
252
253 EOM
254
255 eval "use Test::Differences";
256 if (my $m = $INC{"Test/Differences.pm"})
257 {
258 my $v = eval { no warnings; $Test::Differences::VERSION };
259 print "$v $m\n";
260 }
261 else
262 {
263 print "not found\n\n$e\n";
264 }
265
5309600 @pjcj Test against perl-5.8.7.
authored
266 my $latest_tested = 5.008007;
7a80026 @pjcj import Devel::Cover 0.21
authored
267 print <<EOM if $] > $latest_tested;
268
269 Devel::Cover $Version has not been tested with perl $].
270 Testing will take place against expected output from perl $latest_tested.
271 You may well find failing tests.
272
273 EOM
274
fd354c7 @pjcj import Devel::Cover 0.44
authored
275 if ($] < 5.008)
276 {
277 print <<EOM;
f19d228 @pjcj import Devel::Cover 0.43
authored
278
279 Devel::Cover $Version is not fully functional on perl $]. It should
280 mostly work, but there are some constructs for which coverage will not
fd354c7 @pjcj import Devel::Cover 0.44
authored
281 be collected, and you may well encounter bugs which have been fixed in
282 subsequent versions of perl. Perl versions 5.8.1 and above should work
283 better.
f19d228 @pjcj import Devel::Cover 0.43
authored
284
285 EOM
286
fd354c7 @pjcj import Devel::Cover 0.44
authored
287 print <<EOM if $^O eq "MSWin32";
f19d228 @pjcj import Devel::Cover 0.43
authored
288 And things are even worse under Windows. You may well find random bugs
289 of various severities.
290
291 EOM
fd354c7 @pjcj import Devel::Cover 0.44
authored
292 }
c3a9588 @pjcj Test against perl-5.8.6.
authored
293 elsif ($] < 5.008002)
fd354c7 @pjcj import Devel::Cover 0.44
authored
294 {
295 print <<EOM;
296
297 Devel::Cover $Version mostly works on perl $], but you may encounter
298 strange behaviours (bugs) which have been fixed in subsequent versions
299 of perl. This is particularly true if you are running a threaded perl.
c3a9588 @pjcj Test against perl-5.8.6.
authored
300 Perl versions 5.8.2 and above should work better.
fd354c7 @pjcj import Devel::Cover 0.44
authored
301
302 EOM
303 }
f19d228 @pjcj import Devel::Cover 0.43
authored
304
a0df00b @pjcj import Devel::Cover 0.27
authored
305 print "\n" x 3;
306
c8c4341 @pjcj import Devel::Cover 0.15
authored
307 $ExtUtils::MakeMaker::Verbose = 0;
308
309 WriteMakefile
310 (
311 NAME => "Devel::Cover",
312 VERSION => $Version,
313 AUTHOR => 'Paul Johnson (pjcj@cpan.org)',
314 ABSTRACT => "Code coverage metrics for Perl",
315 DIR => [],
316 EXE_FILES => [ "cover", "gcov2perl" ],
cb76b0d @pjcj import Devel::Cover 0.28
authored
317 PREREQ_PM => {
318 Storable => 0,
319 "Digest::MD5" => 0,
320 },
c8c4341 @pjcj import Devel::Cover 0.15
authored
321 dist => { COMPRESS => "gzip --best --force" },
ffe2236 @pjcj import Devel::Cover 0.23
authored
322 clean => { FILES => join " ", "t/*", map "$_.version", @versions },
f9ee5ec @pjcj import Devel::Cover 0.20
authored
323 realclean => { FILES => "lib/Devel/Cover/Inc.pm cover_db t" },
c8c4341 @pjcj import Devel::Cover 0.15
authored
324 depend => { distdir => "@files" },
325 );
326
327 print "\n";
692f58f @pjcj import Devel::Cover 0.01
authored
328 print <<EOM if 0;
329
330 --------------------------------------------------------------------------------
331
332 I like to have some idea of the distribution of this software. To that end I
333 would be very grateful for mail from you. This will be used only to satisfy my
334 curiosity and to help me make decisions which may involve changes to the
335 module.
336
337 If you can run perlbug you can send me a success report with "make ok".
338 Failure reports with "make nok" are also appreciated.
339
340 If you have any questions or comments, mailing list details are available in the
341 README file, or send mail to me directly.
342
343 EOM
344
c8c4341 @pjcj import Devel::Cover 0.15
authored
345 sub MY::libscan
346 {
347 my ($self, $path) = @_;
348 (my $p = $path) =~ s/^\$\(INST_LIB\)/lib/; # 5.6.1
bf1430b @pjcj import Devel::Cover 0.30
authored
349 $p =~ s|\\|/|g if $^O eq "MSWin32";
c8c4341 @pjcj import Devel::Cover 0.15
authored
350 # print "$path $p\n";
7a80026 @pjcj import Devel::Cover 0.21
authored
351 my $wanted = -d $p; # 5.9.0
c8c4341 @pjcj import Devel::Cover 0.15
authored
352 for my $f (@files)
353 {
bf1430b @pjcj import Devel::Cover 0.30
authored
354 # print "$p - $f\n";
7a80026 @pjcj import Devel::Cover 0.21
authored
355 last if $wanted ||= $p =~ /$f$/;
c8c4341 @pjcj import Devel::Cover 0.15
authored
356 }
357 $wanted && $path;
358 }
359
692f58f @pjcj import Devel::Cover 0.01
authored
360 sub MY::postamble
361 {
c8c4341 @pjcj import Devel::Cover 0.15
authored
362 qq[
692f58f @pjcj import Devel::Cover 0.01
authored
363 SET_VERSION = \$(PERL) -pi.version \\
c8c4341 @pjcj import Devel::Cover 0.15
authored
364 -e 's/(^\\s*(?:our\\s+)\\\$\$VERSION = ")\\d+\\.\\d+(";)/\$\${1}$Version\$\$2/;' \\
365 -e 's/(Version )\\d+\\.\\d+( - ).*/\$\${1}$Version\$\${2}$Date/;' \\
434aad5 @pjcj import Devel::Cover 0.16
authored
366 -e 's/(Devel::Cover Version )\\d+\\.\\d+/\$\${1}$Version/;' \\
c6cb737 @pjcj import Devel::Cover 0.18
authored
367 -e 's/(\\buse Devel::Cover(?:::\\w+)*\\s+)\\d+\\.\\d+/\$\${1}$Version/;'
692f58f @pjcj import Devel::Cover 0.01
authored
368
369 tags : @files
370 \t ptags @files
371
372 @versions : Makefile.PL
373 \t \$(SET_VERSION) @versions
374
c8c4341 @pjcj import Devel::Cover 0.15
authored
375 README : lib/Devel/Cover.pm
376 \t TERMCAP= COLUMNS=80 pod2text lib/Devel/Cover.pm | \\
377 \$(PERL) -n \\
2585fae @pjcj import Devel::Cover 0.42
authored
378 -e 'print if (/NAME/ ... /^[A-Z ]+\$\$/) =~ /^\\d+\$\$/;' \\
379 -e 'print if (/SYNOPSIS/ ... /^[A-Z ]+\$\$/) =~ /^\\d+\$\$/;' \\
380 -e 'print if (/DESCRIPTION/ ... /^[A-Z ]+\$\$/) =~ /^\\d+\$\$/;' \\
b8eeb86 @pjcj import Devel::Cover 0.33
authored
381 -e 'print if (/REQUIREMENTS/ ... /^[A-Z ]+\$\$/) =~ /^\\d+\$\$/;' \\
c8c4341 @pjcj import Devel::Cover 0.15
authored
382 > README
692f58f @pjcj import Devel::Cover 0.01
authored
383
384 ppm : ppd pure_all
385 \t tar cf Devel-Cover.tar blib
386 \t gzip --best --force Devel-Cover.tar
387 \t \$(PERL) -pi.bak \\
c8c4341 @pjcj import Devel::Cover 0.15
authored
388 -e 's/(OS NAME=")[^"]*/\$\$1MSWin32/;' \\
389 -e 's/(ARCHITECTURE NAME=")[^"]*/\$\$1MSWin32-x86-multi-thread/;' \\
6a889d3 @pjcj import Devel::Cover 0.48
authored
390 -e 's/(CODEBASE HREF=")[^"]*/\$\$1Devel-Cover.tar.gz/;' \\
c8c4341 @pjcj import Devel::Cover 0.15
authored
391 Devel-Cover.ppd
392
9f93b0b @pjcj import Devel::Cover 0.35
authored
393 TAINT = -T
fd354c7 @pjcj import Devel::Cover 0.44
authored
394 COVER_OPTIONS =
9f93b0b @pjcj import Devel::Cover 0.35
authored
395
ffe2236 @pjcj import Devel::Cover 0.23
authored
396 _run : pure_all
fd354c7 @pjcj import Devel::Cover 0.44
authored
397 \t \$(PERL) \$(TAINT) -Iblib/lib -Iblib/arch -MDevel::Cover=-merge,0,`\$(PERL) -e 'qx|grep __COVER__ \$\$ARGV[0]| =~ /__COVER__\\s+criteria\\s+(.*)/; (\$\$c = \$\$1 || "all") =~ s/\\s+/,/g; print "-coverage,\$\$c"' tests/\$(TEST)`,\$(COVER_OPTIONS) tests/\$(TEST)
398
b768db3 @pjcj import Devel::Cover 0.45
authored
399 UNCOVERABLE = \$(PERL) -e 'print "-uncoverable \$\$1 " if qx|grep __COVER__ \$\$ARGV[0]| =~ /__COVER__\\s+uncoverable\\s+(.*)/' tests/\$(TEST)
400
fd354c7 @pjcj import Devel::Cover 0.44
authored
401 html : _run
b768db3 @pjcj import Devel::Cover 0.45
authored
402 \t \$(PERL) -Mblib cover `\$(UNCOVERABLE)` -report html
403
f51d799 @pjcj Making html_basic prettier.
authored
404 basic : _run
405 \t \$(PERL) -Mblib cover `\$(UNCOVERABLE)` -report html_basic
406
8553592 @pjcj Allow for easier update of golden results for complicated tests.
authored
407 out : _run
b768db3 @pjcj import Devel::Cover 0.45
authored
408 \t \$(PERL) -Mblib cover `\$(UNCOVERABLE)` -report text > \$(TEST).out
c8c4341 @pjcj import Devel::Cover 0.15
authored
409
8553592 @pjcj Allow for easier update of golden results for complicated tests.
authored
410 text : out
b768db3 @pjcj import Devel::Cover 0.45
authored
411 \t gvim -d \$(TEST).out
ffe2236 @pjcj import Devel::Cover 0.23
authored
412
2585fae @pjcj import Devel::Cover 0.42
authored
413 wrun : pure_all
414 \t \$(PERL) \$(TAINT) -Iblib/lib -Iblib/arch -MDevel::Cover=-ignore,blib,-merge,0 tests/\$(TEST)
415
9f93b0b @pjcj import Devel::Cover 0.35
authored
416 DB = cover_db
417
418 dump :
419 \t \$(PERL) -Mblib cover -dump_db \$(DB)
b8eeb86 @pjcj import Devel::Cover 0.33
authored
420
421 FONT = 8x13
422 FONT = -sun-screen-medium-r-normal-*-*-70-*-*-m-*-sun-fontspecific
423 FONT = "Bitstream Vera Sans Mono 8"
ccdbd36 @pjcj import Devel::Cover 0.29
authored
424
8553592 @pjcj Allow for easier update of golden results for complicated tests.
authored
425 diff : out
9f93b0b @pjcj import Devel::Cover 0.35
authored
426 \t \$(PERL) -i -pe '\$\$t = index \$\$_, "time code" if !defined \$\$t || \$\$t < 0; substr \$\$_, \$\$t, 7, "" if /^line err stmt/ .. /^Branches/ and length > \$\$t' \$(TEST).out
f0c313c @pjcj Add more tests for sort bug fixed in 0.53 (Rob Kinyon).
authored
427 \t gvim -d -font \$(FONT) `\$(PERL) -Mblib -MDevel::Cover::Test -e '\$\$t = Devel::Cover::Test->new("\$(TEST)", run_test_at_end => 0); print \$\$t->cover_gold'` \$(TEST).out
c8c4341 @pjcj import Devel::Cover 0.15
authored
428
429 gold : pure_all
430 \t \$(PERL) create_gold \$(TEST)
692f58f @pjcj import Devel::Cover 0.01
authored
431
9f93b0b @pjcj import Devel::Cover 0.35
authored
432 all_test :
433 \t exec \$(PERL) all_versions make test
434
435 all_gold :
436 \t rm -rf test_output
437 \t exec \$(PERL) all_versions make gold
438
439 mani :
440 \t \$(PERL) -i.bak -ne '\$\$d = "test_output/cover"; print unless /^\$\$d/; END { open M, ">>MANIFEST"; opendir D, \$\$d; print M "\$\$d/\$\$_\\n" for sort grep -f "\$\$d/\$\$_" && !/\.version\$\$/, readdir D }' MANIFEST
441
692f58f @pjcj import Devel::Cover 0.01
authored
442 ok :
443 \t \@$Perlbug -okay || echo "Please send your report manually to $Author"
444
445 nok :
446 \t \@$Perlbug -nokay || echo "Please send your report manually to $Author"
c8c4341 @pjcj import Devel::Cover 0.15
authored
447 ]
692f58f @pjcj import Devel::Cover 0.01
authored
448 }
Something went wrong with that request. Please try again.