diff options
Diffstat (limited to 'main/perl/perl-gcc5-lib-h2ph.t.patch')
| -rw-r--r-- | main/perl/perl-gcc5-lib-h2ph.t.patch | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/main/perl/perl-gcc5-lib-h2ph.t.patch b/main/perl/perl-gcc5-lib-h2ph.t.patch new file mode 100644 index 00000000000..716cfc8a092 --- /dev/null +++ b/main/perl/perl-gcc5-lib-h2ph.t.patch @@ -0,0 +1,39 @@ +From 33593911f214382b592d05aa902655301915e666 Mon Sep 17 00:00:00 2001 +From: =?utf8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com> +Date: Tue, 17 Feb 2015 13:11:00 +0100 +Subject: [PATCH] lib/h2ph.t to test generated t/_h2ph_pre.ph instead of the + system one +MIME-Version: 1.0 +Content-Type: text/plain; charset=utf8 +Content-Transfer-Encoding: 8bit + +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> +--- + lib/h2ph.t | 2 +- + 1 file changed, 1 insertion(+), 1 deletion(-) + +diff --git a/lib/h2ph.t b/lib/h2ph.t +index 2b58f6a..64d9dc0 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); +-- +2.3.0-192-g4a23b1a + |