diff options
author | Petr Písař <ppisar@redhat.com> | 2015-02-17 13:11:00 +0100 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2015-02-25 10:03:39 +1100 |
commit | 33593911f214382b592d05aa902655301915e666 (patch) | |
tree | 6a34d72392475bf9001d7056114a66deb0e58baa /lib/h2ph.t | |
parent | d3db15144cd5a765432a4454baa35bc2e847a1eb (diff) | |
download | perl-33593911f214382b592d05aa902655301915e666.tar.gz |
lib/h2ph.t to test generated t/_h2ph_pre.ph instead of the system one
The lib/h2ph.t test executes a t/lib/h2ph.pht which requires
'_h2ph_pre.ph'. This should find and exercise generated t/_h2ph_pre.ph
file. However, it found a loaded _h2ph_pre.ph from system because the
interpreter has the './' directory after the system paths in the @INC by
default.
This patch adds '-I./' to the runperl() invocation to prefer the
_h2ph_pre.ph generated at build time.
Signed-off-by: Petr Písař <ppisar@redhat.com>
Diffstat (limited to 'lib/h2ph.t')
-rw-r--r-- | lib/h2ph.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/h2ph.t b/lib/h2ph.t index 2b58f6adae..64d9dc080f 100644 --- a/lib/h2ph.t +++ b/lib/h2ph.t @@ -48,7 +48,7 @@ $result = runperl( progfile => '_h2ph_pre.ph', stderr => 1 ); like( $result, qr/syntax OK$/, "preamble compiles"); -$result = runperl( switches => ["-w"], +$result = runperl( switches => ['-I.', "-w"], stderr => 1, prog => <<'PROG' ); $SIG{__WARN__} = sub { die $_[0] }; require q(lib/h2ph.pht); |