use strict;
use warnings;
-use Cwd qw/abs_path/;
-use File::Temp qw/tempfile/;
+use Cwd qw<abs_path>;
+use File::Temp qw<tempfile>;
use File::Spec (); # curdir, catfile
-use POSIX qw/WIFEXITED WEXITSTATUS WIFSIGNALED WTERMSIG/;
+use POSIX qw<WIFEXITED WEXITSTATUS WIFSIGNALED WTERMSIG>;
BEGIN {
no warnings 'redefine';
*WTERMSIG = sub { shift() & 127 } unless eval { WTERMSIG(0); 1 };
}
-use base qw/Exporter/;
+use base qw<Exporter>;
-our @EXPORT_OK = (qw/can_run_git/);
+our @EXPORT_OK = (qw<can_run_git>);
sub can_run_git {
my ($fh, $filename) = tempfile(UNLINK => 1);
'version',
);
- my $git = File::Spec->catfile(File::Spec->curdir, qw/t bin git/);
+ my $git = File::Spec->catfile(File::Spec->curdir, qw<t bin git>);
if ($^O eq 'MSWin32') {
unless (-x $git) {
$git .= '.bat';