Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

import Devel::Cover 0.36

  • Loading branch information...
commit 614b040658d19a9d771ff47e60f3f7d4d4258e80 1 parent 9f93b0b
@pjcj authored
Showing with 185 additions and 110 deletions.
  1. +13 −1 CHANGES
  2. +2 −0  MANIFEST
  3. +2 −2 META.yml
  4. +2 −2 Makefile.PL
  5. +3 −3 cover
  6. +5 −5 cpancover
  7. +2 −2 create_gold
  8. +3 −3 gcov2perl
  9. +6 −13 lib/Devel/Cover.pm
  10. +2 −2 lib/Devel/Cover/Branch.pm
  11. +2 −2 lib/Devel/Cover/Condition.pm
  12. +2 −2 lib/Devel/Cover/Condition_and_3.pm
  13. +2 −2 lib/Devel/Cover/Condition_or_2.pm
  14. +2 −2 lib/Devel/Cover/Condition_or_3.pm
  15. +2 −2 lib/Devel/Cover/Condition_xor_4.pm
  16. +13 −13 lib/Devel/Cover/Criterion.pm
  17. +6 −6 lib/Devel/Cover/DB.pm
  18. +3 −3 lib/Devel/Cover/DB/File.pm
  19. +2 −2 lib/Devel/Cover/Op.pm
  20. +2 −2 lib/Devel/Cover/Pod.pm
  21. +2 −2 lib/Devel/Cover/Report/Html.pm
  22. +5 −5 lib/Devel/Cover/Report/Html_basic.pm
  23. +5 −5 lib/Devel/Cover/Report/Html_minimal.pm
  24. +6 −6 lib/Devel/Cover/Report/Html_subtle.pm
  25. +3 −3 lib/Devel/Cover/Report/Text.pm
  26. +3 −3 lib/Devel/Cover/Report/Text2.pm
  27. +2 −2 lib/Devel/Cover/Statement.pm
  28. +2 −2 lib/Devel/Cover/Subroutine.pm
  29. +2 −2 lib/Devel/Cover/Test.pm
  30. +2 −2 lib/Devel/Cover/Time.pm
  31. +2 −2 lib/Devel/Cover/Truth_Table.pm
  32. +1 −1  lib/Devel/Cover/Tutorial.pod
  33. +48 −0 test_output/cover/fork.5.006001
  34. +23 −0 tests/fork
  35. +2 −5 tests/md5.t
  36. +1 −1  tests/trivial
View
14 CHANGES
@@ -209,7 +209,7 @@ Release 0.34 - 14th January 2004
- Fix various warnings and errors that had crept in whilst working on
dynamic subs.
-Release 0.35 -
+Release 0.35 - 8th March 2004
- Change Text2 to pick up version changes.
- Minor documentation updates.
- Minor changes to Devel::Cover::Op.
@@ -223,3 +223,15 @@ Release 0.35 -
- Add mani, all_gold and all_test Makefile targets.
- Make all_versions skip non-existent platforms.
- Add DB option to make dump target.
+ - Remove dependencies on op_seq. (I removed it from bleadperl.) Use
+ op_targ instead.
+ - Collect some metadata.
+ - Documentation updates (Andy Lester).
+ - Document the mechanism by which files are selected for coverage.
+
+Release 0.36 - 9th March 2004
+ - Add fork test.
+ - Remove debugging code from md5 test.
+ - Remove runs after merging - code was commented out for debugging.
+ - Don't merge runs during coverage collection.
+ - Delete database at start if not merging to cope with forking.
View
2  MANIFEST
@@ -46,6 +46,7 @@ tests/cond_xor
tests/destroy
tests/dynamic_subs
tests/eval1
+tests/fork
tests/if
tests/module1
tests/module2
@@ -80,6 +81,7 @@ test_output/cover/dynamic_subs.5.006001
test_output/cover/dynamic_subs.5.008001
test_output/cover/dynamic_subs.5.009
test_output/cover/eval1.5.006001
+test_output/cover/fork.5.006001
test_output/cover/if.5.006001
test_output/cover/module1.5.006001
test_output/cover/module1.5.008001
View
4 META.yml
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Devel-Cover
-version: 0.35
+version: 0.36
version_from:
installdirs: site
requires:
@@ -9,4 +9,4 @@ requires:
Storable: 0
distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+generated_by: ExtUtils::MakeMaker version 6.21_01
View
4 Makefile.PL
@@ -19,8 +19,8 @@ use File::Copy;
$| = 1;
-my $Version = "0.35";
-my $Date = "8th March 2004";
+my $Version = "0.36";
+my $Date = "9th March 2004";
my $Author = 'pjcj@cpan.org';
my @perlbug = ("perlbug", "-a", $Author,
View
6 cover
@@ -12,9 +12,9 @@ require 5.6.1;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
-use Devel::Cover::DB 0.35;
+use Devel::Cover::DB 0.36;
use Cwd "abs_path";
use Data::Dumper;
@@ -259,7 +259,7 @@ See the BUGS file.
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
View
10 cpancover
@@ -12,9 +12,9 @@ require 5.6.1;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
-use Devel::Cover::DB 0.35;
+use Devel::Cover::DB 0.36;
use Cwd ();
use File::Find ();
@@ -314,7 +314,7 @@ package Devel::Cover::Cpancover::Template::Provider;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
use base "Template::Provider";
@@ -350,7 +350,7 @@ $Templates{html} = <<'EOT';
<!--
-This file was generated by Devel::Cover Version 0.35
+This file was generated by Devel::Cover Version 0.36
Devel::Cover is copyright 2001-2004, Paul Johnson (pjcj@cpan.org)
@@ -459,7 +459,7 @@ The following exit values are returned:
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
View
4 create_gold
@@ -12,11 +12,11 @@ require 5.6.1;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
use blib;
-use Devel::Cover::Test 0.35;
+use Devel::Cover::Test 0.36;
my @tests = @ARGV;
View
6 gcov2perl
@@ -12,9 +12,9 @@ require 5.6.1;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
-use Devel::Cover::DB 0.35;
+use Devel::Cover::DB 0.36;
use Getopt::Long;
use Pod::Usage;
@@ -128,7 +128,7 @@ Huh?
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
View
19 lib/Devel/Cover.pm
@@ -10,13 +10,13 @@ package Devel::Cover;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
use DynaLoader ();
our @ISA = qw( DynaLoader );
-use Devel::Cover::DB 0.35;
-use Devel::Cover::Inc 0.35;
+use Devel::Cover::DB 0.36;
+use Devel::Cover::Inc 0.36;
use B qw( class ppname main_cv main_start main_root walksymtable OPf_KIDS );
use B::Debug;
@@ -111,6 +111,7 @@ EOM
"Ignoring packages matching:", join("\n ", "", @Ignore), "\n",
"Ignoring packages in:", join("\n ", "", @Inc), "\n"
unless $Silent;
+
$Meta{run} = $0;
$Meta{start} = get_elapsed();
}
@@ -161,6 +162,7 @@ sub import
mkdir $DB unless -d $DB; # Nasty hack to keep 5.6.1 happy.
$DB = $1 if Cwd::abs_path($DB) =~ /(.*)/;
+ Devel::Cover::DB->delete($DB) unless $Merge;
if ($blib)
{
@@ -411,15 +413,6 @@ sub report
meta => { $Meta{run} => \%Meta }
);
- my $existing;
- eval
- {
- $existing = Devel::Cover::DB->new(db => $DB) if $Merge;
- $cover->merge($existing);
- };
-
- Devel::Cover::DB->delete($DB) unless $Merge;
-
$DB .= "/runs";
mkdir $DB unless -d $DB;
$DB .= "/" . time . ".$$." . sprintf "%05d", rand 2 ** 16;
@@ -940,7 +933,7 @@ See the BUGS file.
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
View
4 lib/Devel/Cover/Branch.pm
@@ -10,7 +10,7 @@ package Devel::Cover::Branch;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
use base "Devel::Cover::Criterion";
@@ -76,7 +76,7 @@ Huh?
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
View
4 lib/Devel/Cover/Condition.pm
@@ -10,7 +10,7 @@ package Devel::Cover::Condition;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
use base "Devel::Cover::Criterion";
@@ -80,7 +80,7 @@ Huh?
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
View
4 lib/Devel/Cover/Condition_and_3.pm
@@ -10,7 +10,7 @@ package Devel::Cover::Condition_and_3;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
use base "Devel::Cover::Condition";
@@ -46,7 +46,7 @@ Huh?
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
View
4 lib/Devel/Cover/Condition_or_2.pm
@@ -10,7 +10,7 @@ package Devel::Cover::Condition_or_2;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
use base "Devel::Cover::Condition";
@@ -46,7 +46,7 @@ Huh?
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
View
4 lib/Devel/Cover/Condition_or_3.pm
@@ -10,7 +10,7 @@ package Devel::Cover::Condition_or_3;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
use base "Devel::Cover::Condition";
@@ -46,7 +46,7 @@ Huh?
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
View
4 lib/Devel/Cover/Condition_xor_4.pm
@@ -10,7 +10,7 @@ package Devel::Cover::Condition_xor_4;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
use base "Devel::Cover::Condition";
@@ -45,7 +45,7 @@ Huh?
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
View
26 lib/Devel/Cover/Criterion.pm
@@ -10,18 +10,18 @@ package Devel::Cover::Criterion;
use strict;
use warnings;
-our $VERSION = "0.35";
-
-use Devel::Cover::Statement 0.35;
-use Devel::Cover::Branch 0.35;
-use Devel::Cover::Condition 0.35;
-use Devel::Cover::Condition_or_2 0.35;
-use Devel::Cover::Condition_or_3 0.35;
-use Devel::Cover::Condition_and_3 0.35;
-use Devel::Cover::Condition_xor_4 0.35;
-use Devel::Cover::Subroutine 0.35;
-use Devel::Cover::Time 0.35;
-use Devel::Cover::Pod 0.35;
+our $VERSION = "0.36";
+
+use Devel::Cover::Statement 0.36;
+use Devel::Cover::Branch 0.36;
+use Devel::Cover::Condition 0.36;
+use Devel::Cover::Condition_or_2 0.36;
+use Devel::Cover::Condition_or_3 0.36;
+use Devel::Cover::Condition_and_3 0.36;
+use Devel::Cover::Condition_xor_4 0.36;
+use Devel::Cover::Subroutine 0.36;
+use Devel::Cover::Time 0.36;
+use Devel::Cover::Pod 0.36;
sub new
{
@@ -79,7 +79,7 @@ Huh?
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
View
12 lib/Devel/Cover/DB.pm
@@ -10,10 +10,10 @@ package Devel::Cover::DB;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
-use Devel::Cover::DB::File 0.35;
-use Devel::Cover::Criterion 0.35;
+use Devel::Cover::DB::File 0.36;
+use Devel::Cover::Criterion 0.36;
use Carp;
use File::Path;
@@ -132,7 +132,7 @@ sub merge_runs
print STDERR "Devel::Cover: merging run $run\n"
unless $Devel::Cover::Silent;
my $r = Devel::Cover::DB->new(db => $run);
- # rmtree($run);
+ rmtree($run);
$self->merge($r);
}
$self->write($db) if @runs;
@@ -633,7 +633,7 @@ Instead of calling $file->criterion("x") you can also call $file->x.
my $valid = $db->is_valid;
Returns true iff the db is valid. (Actually there is one too many fs there, but
-that's what it shoould do.)
+that's what it should do.)
=head1 BUGS
@@ -641,7 +641,7 @@ Huh?
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
View
6 lib/Devel/Cover/DB/File.pm
@@ -10,9 +10,9 @@ package Devel::Cover::DB::File;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
-use Devel::Cover::Criterion 0.35;
+use Devel::Cover::Criterion 0.36;
sub calculate_summary
{
@@ -78,7 +78,7 @@ Huh?
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
View
4 lib/Devel/Cover/Op.pm
@@ -12,7 +12,7 @@ require 5.8.0; # My patches to B::Concise didn't get released till 5.8.0.
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
use Devel::Cover qw( -ignore blib -ignore \\wB\\w );
use B::Concise qw( set_style add_callback );
@@ -111,7 +111,7 @@ Huh?
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
View
4 lib/Devel/Cover/Pod.pm
@@ -10,7 +10,7 @@ package Devel::Cover::Pod;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
use base "Devel::Cover::Criterion";
@@ -72,7 +72,7 @@ Huh?
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
View
4 lib/Devel/Cover/Report/Html.pm
@@ -10,7 +10,7 @@ package Devel::Cover::Report::Html;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
use base "Devel::Cover::Report::Html_minimal";
@@ -45,7 +45,7 @@ Huh?
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
View
10 lib/Devel/Cover/Report/Html_basic.pm
@@ -10,9 +10,9 @@ package Devel::Cover::Report::Html_basic;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
-use Devel::Cover::DB 0.35;
+use Devel::Cover::DB 0.36;
use Template 2.00;
@@ -278,7 +278,7 @@ package Devel::Cover::Report::Html_basic::Template::Provider;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
use base "Template::Provider";
@@ -314,7 +314,7 @@ $Templates{html} = <<'EOT';
<!--
-This file was generated by Devel::Cover Version 0.35
+This file was generated by Devel::Cover Version 0.36
Devel::Cover is copyright 2001-2002, Paul Johnson (pjcj@cpan.org)
@@ -533,7 +533,7 @@ Huh?
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
View
10 lib/Devel/Cover/Report/Html_minimal.pm
@@ -4,10 +4,10 @@ use strict;
use warnings;
use CGI;
use Getopt::Long;
-use Devel::Cover::DB 0.35;
-use Devel::Cover::Truth_Table 0.35;
+use Devel::Cover::DB 0.36;
+use Devel::Cover::Truth_Table 0.36;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
#-------------------------------------------------------------------------------
# Subroutine : get_coverage_for_line
@@ -255,7 +255,7 @@ sub print_html_header {
print $fh <<"END_HTML";
<!--
-This file was generated by Devel::Cover Version 0.35
+This file was generated by Devel::Cover Version 0.36
Devel::Cover is copyright 2001-2004, Paul Johnson (pjcj\@cpan.org)
Devel::Cover is free. It is licensed under the same terms as Perl itself.
The latest version of Devel::Cover should be available from my homepage:
@@ -754,7 +754,7 @@ Devel::Cover
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
View
12 lib/Devel/Cover/Report/Html_subtle.pm
@@ -2,10 +2,10 @@ package Devel::Cover::Report::Html_subtle;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
-use Devel::Cover::DB 0.35;
-use Devel::Cover::Truth_Table 0.35;
+use Devel::Cover::DB 0.36;
+use Devel::Cover::Truth_Table 0.36;
use Template 2.00;
use CGI;
@@ -386,7 +386,7 @@ package Devel::Cover::Report::Html_subtle::Template::Provider;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
use base "Template::Provider";
@@ -404,7 +404,7 @@ sub fetch {
$Templates{html} = <<'EOT';
<!--
-This file was generated by Devel::Cover Version 0.35
+This file was generated by Devel::Cover Version 0.36
Devel::Cover is copyright 2001-2002, Paul Johnson (pjcj@cpan.org)
@@ -734,7 +734,7 @@ Huh?
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
View
6 lib/Devel/Cover/Report/Text.pm
@@ -10,9 +10,9 @@ package Devel::Cover::Report::Text;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
-use Devel::Cover::DB 0.35;
+use Devel::Cover::DB 0.36;
sub print_file
{
@@ -261,7 +261,7 @@ Huh?
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
View
6 lib/Devel/Cover/Report/Text2.pm
@@ -2,9 +2,9 @@ package Devel::Cover::Report::Text2;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
-use Devel::Cover::DB 0.35;
+use Devel::Cover::DB 0.36;
use Devel::Cover::Truth_Table;
my %format = (
@@ -191,7 +191,7 @@ Huh?
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
View
4 lib/Devel/Cover/Statement.pm
@@ -10,7 +10,7 @@ package Devel::Cover::Statement;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
use base "Devel::Cover::Criterion";
@@ -68,7 +68,7 @@ Huh?
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
View
4 lib/Devel/Cover/Subroutine.pm
@@ -10,7 +10,7 @@ package Devel::Cover::Subroutine;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
use base "Devel::Cover::Criterion";
@@ -69,7 +69,7 @@ Huh?
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
View
4 lib/Devel/Cover/Test.pm
@@ -10,14 +10,14 @@ package Devel::Cover::Test;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
use Carp;
use File::Spec;
use Test;
-use Devel::Cover::Inc 0.35;
+use Devel::Cover::Inc 0.36;
sub new
{
View
4 lib/Devel/Cover/Time.pm
@@ -10,7 +10,7 @@ package Devel::Cover::Time;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
use base "Devel::Cover::Criterion";
@@ -70,7 +70,7 @@ Huh?
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
View
4 lib/Devel/Cover/Truth_Table.pm
@@ -173,7 +173,7 @@ sub covered {
package Devel::Cover::Truth_Table;
use warnings;
use strict;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
#-------------------------------------------------------------------------------
# Subroutine : new()
@@ -556,7 +556,7 @@ None that I'm aware of...
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENSE
View
2  lib/Devel/Cover/Tutorial.pod
@@ -163,7 +163,7 @@ basis for future research.
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
View
48 test_output/cover/fork.5.006001
@@ -0,0 +1,48 @@
+Reading database from /var/spool/extra/g/perl/Devel-Cover-0.35/cover_db
+
+
+------------------------------------------ ------ ------ ------ ------ ------
+File stmt branch cond sub total
+------------------------------------------ ------ ------ ------ ------ ------
+tests/fork 100.00 75.00 n/a n/a 90.00
+Total 100.00 75.00 n/a n/a 90.00
+------------------------------------------ ------ ------ ------ ------ ------
+
+
+tests/fork
+
+line err stmt branch cond sub code
+1 #!/usr/bin/perl
+2
+3 # Copyright 2004, Paul Johnson (pjcj@cpan.org)
+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 2 $x = 1;
+11
+12 *** 2 50 die unless defined ($pid = fork);
+13
+14 2 100 if ($pid)
+15 {
+16 1 $x = 2;
+17 }
+18 else
+19 {
+20 1 $x = 3;
+21 }
+22
+23 2 print "$x: $$\n";
+
+
+Branches
+--------
+
+line err % true false branch
+----- --- ------ ------ ------ ------
+12 *** 50 0 2 unless defined($pid = fork)
+14 100 1 1 if ($pid) { }
+
+
View
23 tests/fork
@@ -0,0 +1,23 @@
+#!/usr/bin/perl
+
+# Copyright 2004, Paul Johnson (pjcj@cpan.org)
+
+# This software is free. It is licensed under the same terms as Perl itself.
+
+# The latest version of this software should be available from my homepage:
+# http://www.pjcj.net
+
+$x = 1;
+
+die unless defined ($pid = fork);
+
+if ($pid)
+{
+ $x = 2;
+}
+else
+{
+ $x = 3;
+}
+
+print "$x: $$\n";
View
7 tests/md5.t
@@ -17,8 +17,8 @@ use lib "/var/spool/extra/g/perl/Devel-Cover-0.3407/t";
use File::Copy;
-use Devel::Cover::Inc 0.35;
-use Devel::Cover::Test 0.35;
+use Devel::Cover::Inc 0.36;
+use Devel::Cover::Test 0.36;
my $base = $Devel::Cover::Inc::Base;
@@ -35,9 +35,6 @@ sub run_test
copy($fg, $ft) or die "Cannot copy $fg to $ft: $!";
- print "file <$ft>\n";
- system "cat $ft";
-
$test->{test_parameters} .= " -merge 1";
$test->run_command($test->test_command);
}
View
2  tests/trivial
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# Copyright 2002-2004, Paul Johnson (pjcj@cpan.org)
+# Copyright 2004, Paul Johnson (pjcj@cpan.org)
# This software is free. It is licensed under the same terms as Perl itself.
Please sign in to comment.
Something went wrong with that request. Please try again.