use strict;
use vars qw($VERSION);
-$VERSION = '0.33_02';
+$VERSION = '0.36';
$VERSION = eval $VERSION; # make the alpha version come out as a number
# Make Test::Builder thread-safe for ithreads.
return unless $cmd;
+ local $Level = $Level + 1;
+
if( $self->{Have_Plan} ) {
$self->croak("You tried to plan twice");
}
Most useful when you can't depend on the test output order, such as
when threads or forking is involved.
-Test::Harness will accept either, but avoid mixing the two styles.
-
Defaults to on.
=cut
sub _message_at_caller {
my $self = shift;
- local $Level = $Level + 2;
+ local $Level = $Level + 1;
my($pack, $file, $line) = $self->caller;
return join("", @_) . " at $file line $line.\n";
}
my $self = shift;
unless( $self->{Have_Plan} ) {
- local $Level = $Level + 1;
+ local $Level = $Level + 2;
$self->croak("You tried to run a test without a plan");
}
}