diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2013-11-13 01:11:12 -0300 |
|---|---|---|
| committer | Brian Fraser <fraserbn@gmail.com> | 2014-01-25 12:37:10 -0300 |
| commit | 3a73a07586950cba837f564bb42b7b626e95b3bf (patch) | |
| tree | 8c467384d71eec19f63b4fccf7cd688c231c0ef7 /t/porting/perlfunc.t | |
| parent | 2cf6a769045cf8d7f28ae3ec911e8908b8d22a68 (diff) | |
| download | perl-3a73a07586950cba837f564bb42b7b626e95b3bf.tar.gz | |
t/porting/: Skips for cross-compilation
Diffstat (limited to 't/porting/perlfunc.t')
| -rw-r--r-- | t/porting/perlfunc.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/t/porting/perlfunc.t b/t/porting/perlfunc.t index fb0209db18..e278e4eebb 100644 --- a/t/porting/perlfunc.t +++ b/t/porting/perlfunc.t @@ -22,9 +22,15 @@ # Pod::Functions provided by a =for directive. BEGIN { - @INC = '..' if -f '../TestInit.pm'; + @INC = ('..', '../lib') if -f '../TestInit.pm'; } +use Config; use TestInit qw(T A); # T is chdir to the top level, A makes paths absolute +if ( $Config{usecrosscompile} ) { + print "1..0 # Not all files are available during cross-compilation\n"; + exit 0; +} + system "$^X ext/Pod-Functions/Functions_pm.PL --tap pod/perlfunc.pod"; |