Rebuild Configure from current metaconfig

[perl5.git] / t / porting / perlfunc.t

diff --git a/t/porting/perlfunc.t b/t/porting/perlfunc.t
index b32e88a..61e0728 100644 (file)
--- a/t/porting/perlfunc.t
+++ b/t/porting/perlfunc.t
@@ -18,12 +18,24 @@
 # It's broken - how do I fix it?
 # Likely it's because you changed something in pod/perlfunc.pod
 # If you added a new function, it needs to be added to one or more groups in
-# "Perl Functions by Category".
+# "Perl Functions by Category", and to have a one line summary for
+# 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;
+}
+
+if ( ord("A") == 193) {
+    print "1..0 # EBCDIC sorts differenly than expected\n";
+    exit 0;
+}
+
 system "$^X ext/Pod-Functions/Functions_pm.PL --tap pod/perlfunc.pod";