use vars qw( $VERSION $PERL $UNTAINT_PATTERN $PERL_PATTERN);
-$VERSION = '0.4';
+$VERSION = '0.5';
$PERL = $^X || 'perl';
$UNTAINT_PATTERN = qr|^([-+@\w./:\\]+)$|;
sub _make_plan {
unless ($Test->has_plan) {
- $Test->plan( no_plan => 1 );
+ $Test->plan( 'no_plan' );
}
$Test->expected_tests;
}