| Subject: | _get_perl_V always uses $^X |
Patch attached.
| Subject: | 0001-Make-_get_perl_V-respect-its-perl-argument.patch |
From ebfe43b3ec332a092ab10605fc674421abb990b2 Mon Sep 17 00:00:00 2001
From: Vincent Pit <perl@profvince.com>
Date: Mon, 3 Jun 2013 13:29:27 +0200
Subject: [PATCH] Make _get_perl_V respect its 'perl' argument
---
lib/Test/Reporter.pm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lib/Test/Reporter.pm b/lib/Test/Reporter.pm
index 96fba6e..3ce5cf1 100644
--- a/lib/Test/Reporter.pm
+++ b/lib/Test/Reporter.pm
@@ -522,7 +522,7 @@ sub perl_version {
sub _get_perl_V {
my $self = shift;
- my $perl ||= $^X;
+ my $perl = shift || $^X;
my $q = $self->_get_sh_quote;
my $cmdv = "$perl -V";
if($^O eq 'VMS'){
--
1.8.2.1