| Subject: | [PATCH] Run with the perl interpreter the test was invoked with |
script/smokerunner-multi uses '/usr/bin/perl' in the shebang line,
which causes problems when it's built and installed for a perl
installed elsewhere. So I changed the test to explicitly uses $^X.
Patch attached.
And I saw in the other bug report that you are looking for a new
maintainer for the module. If you want, I'm willing to take over. :-)
| Subject: | 0001-Run-with-the-perl-interpreter-the-test-was-invoked-w.patch |
From 3bef2c2e07550184eee57d93ad7ea47d03e5574e Mon Sep 17 00:00:00 2001
From: Yanick Champoux <yanick@babyl.dyndns.org>
Date: Sat, 15 Sep 2012 14:26:00 -0400
Subject: [PATCH] Run with the perl interpreter the test was invoked with
script/smokerunner-multi uses '/usr/bin/perl' in the shebang line,
which causes problems when it's built and installed for a perl
installed elsewhere. So I changed the test to explicitly uses
$^X.
---
t/smokerunner-multi.t | 6 +++---
1 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/t/smokerunner-multi.t b/t/smokerunner-multi.t
index 4f1a6ed..d34d4ba 100644
--- a/t/smokerunner-multi.t
+++ b/t/smokerunner-multi.t
@@ -27,7 +27,7 @@ my $script = File::Spec->catfile( 'script', 'smokerunner-multi' );
HELP:
{
- my $cmd = Test::Command->new( cmd => [ $script, 'help' ] );
+ my $cmd = Test::Command->new( cmd => [ $^X, $script, 'help' ] );
exit_is_num( $cmd, 0,
'help command exits with 0' );
stdout_like( $cmd, qr/accepts the following commands/,
@@ -38,7 +38,7 @@ HELP:
LIST:
{
- my $cmd = Test::Command->new( cmd => [ $script, 'list' ] );
+ my $cmd = Test::Command->new( cmd => [ $^X, $script, 'list' ] );
exit_is_num( $cmd, 0,
'list command exits with 0' );
stdout_like( $cmd, qr/set1\s+\|\s+\|\s+never/,
@@ -54,7 +54,7 @@ LIST:
skip 'These tests require that prove be in the PATH.', 3
unless which('prove');
- my $cmd = Test::Command->new( cmd => [ $script, 'run' ] );
+ my $cmd = Test::Command->new( cmd => [ $^X, $script, 'run' ] );
exit_is_num( $cmd, 0,
'run command exits with 0' );
stdout_is_eq( $cmd, '',
--
1.7.4.1