[Reproducible-commits] [perl] 09/36: lib/h2ph.t to test generated t/_h2ph_pre.ph instead of the system one

[Mattia Rizzolo]

This is an automated email from the git hooks/post-receive script.

mapreri-guest pushed a commit to branch pu/reproducible_builds
in repository perl.

commit 833d958939b299832f29e4e114a0d089d0a5bc7b
Author: Petr Písař <ppisar at redhat.com>
Date:   Tue Feb 17 13:11:00 2015 +0100

    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 at redhat.com>
    
    Origin: upstream, http://perl5.git.perl.org/perl.git/commit/33593911f214382b592d05aa902655301915e666
    Bug: https://rt.perl.org/Ticket/Display.html?id=123784
    Bug-Debian: https://bugs.debian.org/778060
    Patch-Name: fixes/h2ph-test-inc.diff
---
 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);

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/reproducible/perl.git