summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/App/Prove.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/App/Prove.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/App/Prove.pm15
1 files changed, 7 insertions, 8 deletions
diff --git a/Master/tlpkg/tlperl/lib/App/Prove.pm b/Master/tlpkg/tlperl/lib/App/Prove.pm
index 67c691bf93e..44aaf6dda30 100644
--- a/Master/tlpkg/tlperl/lib/App/Prove.pm
+++ b/Master/tlpkg/tlperl/lib/App/Prove.pm
@@ -1,27 +1,28 @@
package App::Prove;
use strict;
-use vars qw($VERSION @ISA);
+use warnings;
-use TAP::Object ();
use TAP::Harness;
-use TAP::Parser::Utils qw( split_shell );
+use Text::ParseWords qw(shellwords);
use File::Spec;
use Getopt::Long;
use App::Prove::State;
use Carp;
+use base 'TAP::Object';
+
=head1 NAME
App::Prove - Implements the C<prove> command.
=head1 VERSION
-Version 3.26
+Version 3.30
=cut
-$VERSION = '3.26';
+our $VERSION = '3.30';
=head1 DESCRIPTION
@@ -51,8 +52,6 @@ use constant PLUGINS => 'App::Prove::Plugin';
my @ATTR;
BEGIN {
- @ISA = qw(TAP::Object);
-
@ATTR = qw(
archive argv blib show_count color directives exec failures comments
formatter harness includes modules plugins jobs lib merge parse quiet
@@ -574,7 +573,7 @@ sub _get_switches {
push @switches, '-w';
}
- push @switches, split_shell( $ENV{HARNESS_PERL_SWITCHES} );
+ push @switches, shellwords( $ENV{HARNESS_PERL_SWITCHES} ) if defined $ENV{HARNESS_PERL_SWITCHES};
return @switches ? \@switches : ();
}