}
my $glob = $stash->{$sub};
- return $glob ? *$glob{CODE} : undef;
+ return ref \$glob eq 'GLOB' ? *$glob{CODE}
+ : ref $glob eq 'CODE' ? $glob
+ : undef;
};
sub skip { $test_sub->('skip')->(@_) }
=item *
-Dependencies : none
+Dependencies :
+
+=over 8
+
+=item -
+
+L<File::Spec>
+
+=back
=item *
=item -
+C<run_perl_file $file>
+
+=item -
+
C<RUN_PERL_FAILED> (possibly prefixed by C<$p>)
=back
sub init_run_perl {
my $p = sanitize_prefix(shift);
+ # This is only required for run_perl_file(), so it is not needed for the
+ # threads feature which only calls run_perl() - don't forget to update its
+ # requirements if this ever changes.
+ require File::Spec;
+
return (
run_perl => \&run_perl,
+ run_perl_file => \&run_perl_file,
"${p}RUN_PERL_FAILED" => sub () { 'Could not execute perl subprocess' },
);
}
};
}
+sub run_perl_file {
+ my $file = shift;
+
+ $file = File::Spec->rel2abs($file);
+ unless (-e $file and -r _) {
+ die 'Could not run perl file';
+ }
+
+ fresh_perl_env {
+ my ($perl, @perl_args) = @_;
+ system { $perl } $perl, @perl_args, $file;
+ };
+}
+
=head2 C<capture>
=over 4
if (defined $pkg and defined $threadsafe_var) {
my $threadsafe;
+ # run_perl() doesn't actually require anything
my $stat = run_perl("require POSIX; require $pkg; exit($threadsafe_var ? POSIX::EXIT_SUCCESS() : POSIX::EXIT_FAILURE())");
if (defined $stat) {
require POSIX;