[Perl] Fix testsuite to work without . in @INC
"." was removed from @INC in Perl 5.26 for security reasons, and has also been removed from older versions in some distros. Fixes https://github.com/swig/swig/issues/997 reported by lfam.
This commit is contained in:
parent
5d5fd5b122
commit
8855ef2b48
3 changed files with 8 additions and 2 deletions
|
|
@ -7,6 +7,12 @@ the issue number to the end of the URL: https://github.com/swig/swig/issues/
|
||||||
Version 4.0.0 (in progress)
|
Version 4.0.0 (in progress)
|
||||||
===========================
|
===========================
|
||||||
|
|
||||||
|
2017-06-13: olly
|
||||||
|
[Perl] Fix testsuite to work without . in @INC - it was removed in
|
||||||
|
Perl 5.26 for security reasons, and has also been removed from
|
||||||
|
older versions in some distros. Fixes
|
||||||
|
https://github.com/swig/swig/issues/997 reported by lfam.
|
||||||
|
|
||||||
2017-06-03: wsfulton
|
2017-06-03: wsfulton
|
||||||
Fix %import on a file containing a file scope %fragment forced inclusion to not
|
Fix %import on a file containing a file scope %fragment forced inclusion to not
|
||||||
generate the fragment contents as %import should not result in code being generated.
|
generate the fragment contents as %import should not result in code being generated.
|
||||||
|
|
|
||||||
|
|
@ -282,7 +282,7 @@ perl5_static_cpp: $(SRCDIR_SRCS)
|
||||||
# -----------------------------------------------------------------
|
# -----------------------------------------------------------------
|
||||||
|
|
||||||
perl5_run:
|
perl5_run:
|
||||||
$(RUNTOOL) $(PERL) $(PERL5_SCRIPT) $(RUNPIPE)
|
$(RUNTOOL) $(PERL) -I. $(PERL5_SCRIPT) $(RUNPIPE)
|
||||||
|
|
||||||
# -----------------------------------------------------------------
|
# -----------------------------------------------------------------
|
||||||
# Version display
|
# Version display
|
||||||
|
|
|
||||||
|
|
@ -7,7 +7,7 @@ use strict;
|
||||||
|
|
||||||
my $command = shift @ARGV;
|
my $command = shift @ARGV;
|
||||||
|
|
||||||
my $output = `$^X $command 2>&1`;
|
my $output = `$^X -I. $command 2>&1`;
|
||||||
|
|
||||||
die "SWIG Perl test failed: \n\n$output\n"
|
die "SWIG Perl test failed: \n\n$output\n"
|
||||||
if $?;
|
if $?;
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue