Patch unit tests to explicitly insert "." into @INC when needed.
authorH.Merijn Brand <h.m.brand@xs4all.nl>
Sat, 22 Oct 2016 11:55:48 +0000 (13:55 +0200)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Fri, 11 Nov 2016 15:27:20 +0000 (16:27 +0100)
require calls now require ./ to be prepended to the file since . is no
longer guaranteed to be in @INC.

92 files changed:
Makefile.SH
Porting/checkcfgvar.pl
Porting/makemeta
Porting/new-perldelta.pl
Porting/pod_rules.pl
TestInit.pm
autodoc.pl
cpan/Devel-PPPort/devel/mktodo
cpan/Devel-PPPort/devel/mktodo.pl
cpan/Devel-PPPort/devel/regenerate
cpan/Devel-PPPort/devel/scanprov
cpan/Devel-PPPort/parts/apicheck.pl
cpan/Math-BigInt/t/bare_mbf.t
cpan/Math-BigInt/t/bare_mbi.t
cpan/Math-BigInt/t/bare_mif.t
cpan/Math-BigInt/t/bigfltpm.t
cpan/Math-BigInt/t/bigintpm.t
cpan/Math-BigInt/t/mbf_ali.t
cpan/Math-BigInt/t/mbi_ali.t
cpan/Math-BigInt/t/mbimbf.t
cpan/Math-BigInt/t/sub_ali.t
cpan/Math-BigInt/t/sub_mbf.t
cpan/Math-BigInt/t/sub_mbi.t
cpan/Math-BigInt/t/sub_mif.t
cpan/Math-BigInt/t/upgrade.t
cpan/Math-BigInt/t/upgradef.t
cpan/Math-BigInt/t/with_sub.t
cpan/Math-BigRat/t/bigfltrt.t
cpan/Math-BigRat/t/bigratpm.t
cpan/perlfaq/lib/perlfaq5.pod
cpan/perlfaq/lib/perlfaq8.pod
dist/Thread-Queue/t/01_basic.t
dist/Thread-Queue/t/02_refs.t
dist/Thread-Queue/t/03_peek.t
dist/Thread-Queue/t/05_extract.t
dist/Thread-Queue/t/06_insert.t
dist/Thread-Queue/t/07_lock.t
dist/Thread-Queue/t/10_timed.t
dist/Thread-Semaphore/t/01_basic.t
dist/Thread-Semaphore/t/04_nonblocking.t
dist/Thread-Semaphore/t/05_force.t
ext/DynaLoader/t/DynaLoader.t
h2pl/cbreak.pl
h2pl/cbreak2.pl
lib/h2ph.t
lib/strict.t
lib/warnings.t
makedef.pl
pod/buildtoc
pod/perlmodlib.PL
regen.pl
regen/ebcdic.pl
regen/embed.pl
regen/feature.pl
regen/genpacksizetables.pl
regen/keywords.pl
regen/lib_cleanup.pl
regen/mg_vtable.pl
regen/miniperlmain.pl
regen/mk_PL_charclass.pl
regen/mk_invlists.pl
regen/opcode.pl
regen/overload.pl
regen/reentr.pl
regen/regcharclass.pl
regen/regcomp.pl
regen/uconfig_h.pl
regen/unicode_constants.pl
regen/warnings.pl
regen_perly.pl
t/comp/line_debug.t
t/lib/warnings/op
t/op/goto.t
t/porting/authors.t
t/porting/bench.t
t/porting/cmp_version.t
t/porting/corelist.t
t/porting/diag.t
t/porting/globvar.t
t/porting/manifest.t
t/porting/pending-author.t
t/porting/pod_rules.t
t/porting/readme.t
t/porting/regen.t
t/porting/utils.t
t/re/pat.t
t/run/runenv.t
t/run/switches.t
t/test.pl
utils/Makefile.PL
utils/c2ph.PL
utils/perlivp.PL

index b1c4765..491d1a6 100755 (executable)
@@ -345,7 +345,7 @@ RUN_PERL = \$(LDLIBPTH) \$(RUN) $perl\$(EXE_EXT)
        $spitshell >>$Makefile <<!GROK!THIS!
 # Macros to invoke a copy of our fully operational perl during the build.
 PERL_EXE = perl\$(EXE_EXT)
-RUN_PERL = \$(LDLIBPTH) \$(RUN) ./perl\$(EXE_EXT) -Ilib
+RUN_PERL = \$(LDLIBPTH) \$(RUN) ./perl\$(EXE_EXT) -Ilib -I.
 !GROK!THIS!
        ;;
 esac
index 4dc93df..601be18 100755 (executable)
@@ -36,7 +36,7 @@ GetOptions (
 
 $default and $default =~ s/^'(.*)'$/$1/; # Will be quoted on generation
 
-require 'regen/regen_lib.pl' if $opt_r;
+require './regen/regen_lib.pl' if $opt_r;
 
 my $MASTER_CFG = "config_h.SH";
 # Inclusive bounds on the main part of the file, $section == 1 below:
index 9259b20..a5fa5a4 100644 (file)
@@ -65,7 +65,7 @@ use CPAN::Meta;
 
 BEGIN {
     # Get function prototypes
-    require 'regen/regen_lib.pl';
+    require './regen/regen_lib.pl';
 }
 
 use Maintainers qw(%Modules get_module_files get_module_pat);
index 09b7783..47376cb 100644 (file)
@@ -4,7 +4,7 @@ use strict;
 # This needs to be able to run from a clean checkout, hence assume only system
 # perl, which may be too old to have autodie
 
-require 'Porting/pod_lib.pl';
+require './Porting/pod_lib.pl';
 
 my $state = get_pod_metadata(1);
 my (undef, $old_major, $old_minor) = @{$state->{delta_version}};
index 37cbb9c..7bf1380 100644 (file)
@@ -32,8 +32,8 @@ if (ord("A") == 193) {
             # plan9 =>  'plan9/mkfile',
            );
 
-require 'Porting/pod_lib.pl';
-require 'Porting/manifest_lib.pl';
+require './Porting/pod_lib.pl';
+require './Porting/manifest_lib.pl';
 sub my_die;
 
 # process command-line switches
index f4ed6fd..f9a5e91 100644 (file)
@@ -47,7 +47,7 @@ sub import {
        } elsif ($_ eq 'T') {
            $chdir = '..'
                unless -f 't/TEST' && -f 'MANIFEST' && -d 'lib' && -d 'ext';
-           @INC = 'lib';
+           @INC = qw/ lib . /;
            $setopt = 1;
        } else {
            die "Unknown option '$_'";
index ce4846e..597607c 100644 (file)
@@ -29,8 +29,8 @@ if (@ARGV) {
     chdir $workdir
         or die "Couldn't chdir to '$workdir': $!";
 }
-require 'regen/regen_lib.pl';
-require 'regen/embed_lib.pl';
+require './regen/regen_lib.pl';
+require './regen/embed_lib.pl';
 
 #
 # See database of global and static function prototypes in embed.fnc
index c5c2a9b..2eb9ea3 100644 (file)
@@ -17,7 +17,7 @@
 use strict;
 use Getopt::Long;
 
-require 'devel/devtools.pl';
+require './devel/devtools.pl';
 
 our %opt = (
   base    => 0,
index 9345a23..c479eab 100644 (file)
@@ -22,7 +22,7 @@ use IO::Select;
 use Config;
 use Time::HiRes qw( gettimeofday tv_interval );
 
-require 'devel/devtools.pl';
+require './devel/devtools.pl';
 
 our %opt = (
   debug   => 0,
index dad5338..bc1742d 100644 (file)
@@ -20,7 +20,7 @@ use File::Copy;
 use Getopt::Long;
 use Pod::Usage;
 
-require 'devel/devtools.pl';
+require './devel/devtools.pl';
 
 our %opt = (
   check   => 1,
index 86910e4..804524c 100644 (file)
@@ -17,7 +17,7 @@
 use strict;
 use Getopt::Long;
 
-require 'parts/ppptools.pl';
+require './parts/ppptools.pl';
 
 our %opt = (
   mode    => 'check',
index ac119a6..69d8502 100644 (file)
@@ -15,7 +15,7 @@
 ################################################################################
 
 use strict;
-require 'parts/ppptools.pl';
+require './parts/ppptools.pl';
 
 if (@ARGV) {
   my $file = pop @ARGV;
index 6b9af66..2167dca 100644 (file)
@@ -13,4 +13,4 @@ our ($CLASS, $CALC);
 $CLASS = "Math::BigFloat";
 $CALC  = "Math::BigInt::BareCalc";      # backend
 
-require 't/bigfltpm.inc';              # all tests here for sharing
+require './t/bigfltpm.inc';            # all tests here for sharing
index 93dbc7a..f2b768d 100644 (file)
@@ -15,4 +15,4 @@ our ($CLASS, $CALC);
 $CLASS = "Math::BigInt";
 $CALC  = "Math::BigInt::BareCalc";      # backend
 
-require 't/bigintpm.inc';               # perform same tests as bigintpm.t
+require './t/bigintpm.inc';               # perform same tests as bigintpm.t
index d63e3da..e7b9774 100644 (file)
@@ -21,4 +21,4 @@ $mbf = 'Math::BigFloat';
 is(Math::BigInt->config()->{lib}, 'Math::BigInt::BareCalc',
    'Math::BigInt->config()->{lib}');
 
-require 't/mbimbf.inc';
+require './t/mbimbf.inc';
index 629cb56..a256b9f 100644 (file)
@@ -33,4 +33,4 @@ SKIP: {
     is(ref($e->{_e}->[0]), '', '$e->{_e}->[0] is a scalar');
 }
 
-require 't/bigfltpm.inc';      # all tests here for sharing
+require './t/bigfltpm.inc';    # all tests here for sharing
index e87e05a..cd552ca 100644 (file)
@@ -44,4 +44,4 @@ is($x, "9903520314281112085086151826",
 #############################################################################
 # all the other tests
 
-require 't/bigintpm.inc';       # all tests here for sharing
+require './t/bigintpm.inc';       # all tests here for sharing
index b44b64c..3999aa7 100644 (file)
@@ -12,4 +12,4 @@ use Math::BigFloat;
 our $CLASS;
 $CLASS = 'Math::BigFloat';
 
-require 't/alias.inc';
+require './t/alias.inc';
index e65aa3c..45ed6c4 100644 (file)
@@ -12,4 +12,4 @@ use Math::BigInt;
 our $CLASS;
 $CLASS = 'Math::BigInt';
 
-require 't/alias.inc';
+require './t/alias.inc';
index dd65da4..107da31 100644 (file)
@@ -15,7 +15,7 @@ use Math::BigFloat;
 our $mbi = 'Math::BigInt';
 our $mbf = 'Math::BigFloat';
 
-require 't/mbimbf.inc';
+require './t/mbimbf.inc';
 
 # some tests that won't work with subclasses, since the things are only
 # guaranteed in the Math::Big(Int|Float) (unless subclass chooses to support
index 6023be3..2f145b4 100644 (file)
@@ -14,4 +14,4 @@ use Math::BigInt::Subclass;
 our $CLASS;
 $CLASS = 'Math::BigInt::Subclass';
 
-require 't/alias.inc';
+require './t/alias.inc';
index 69311d4..e438581 100644 (file)
@@ -14,7 +14,7 @@ our ($CLASS, $CALC);
 $CLASS = "Math::BigFloat::Subclass";
 $CALC  = Math::BigFloat->config()->{lib};       # backend
 
-require 't/bigfltpm.inc';      # perform same tests as bigfltpm
+require './t/bigfltpm.inc';    # perform same tests as bigfltpm
 
 ###############################################################################
 # Now do custom tests for Subclass itself
index e991ad9..500f2a4 100644 (file)
@@ -14,7 +14,7 @@ our ($CLASS, $CALC);
 $CLASS = "Math::BigInt::Subclass";
 $CALC  = "Math::BigInt::Calc";          # backend
 
-require 't/bigintpm.inc';              # perform same tests as bigintpm
+require './t/bigintpm.inc';            # perform same tests as bigintpm
 
 ###############################################################################
 # Now do custom tests for Subclass itself
index 96bf82f..250db3f 100644 (file)
@@ -17,4 +17,4 @@ our ($mbi, $mbf);
 $mbi = 'Math::BigInt::Subclass';
 $mbf = 'Math::BigFloat::Subclass';
 
-require 't/mbimbf.inc';
+require './t/mbimbf.inc';
index 2307a48..7ed4378 100644 (file)
@@ -19,4 +19,4 @@ is(Math::BigInt->upgrade(), "Math::BigFloat",
 is(Math::BigInt->downgrade() || "", "",
    qq/Math::BigInt->downgrade() || ""/);
 
-require 't/upgrade.inc';       # all tests here for sharing
+require './t/upgrade.inc';     # all tests here for sharing
index d208890..dbe373f 100644 (file)
@@ -67,4 +67,4 @@ is($z, 321,
    . q| $z = $x->badd($y); $z|);
 
 # not yet:
-#require 't/upgrade.inc';      # all tests here for sharing
+#require './t/upgrade.inc';    # all tests here for sharing
index 2c54107..299eea5 100644 (file)
@@ -19,4 +19,4 @@ $CALC  = "Math::BigInt::Calc";          # backend
 is(Math::BigFloat->config()->{with}, 'Math::BigInt::Calc',
    'Math::BigFloat->config()->{with}');
 
-require 't/bigfltpm.inc';      # all tests here for sharing
+require './t/bigfltpm.inc';    # all tests here for sharing
index 4f36bde..97f8032 100644 (file)
@@ -16,4 +16,4 @@ $CALC  = "Math::BigInt::Calc";
 pass();
 
 # fails still too many tests
-#require 't/bigfltpm.inc';             # all tests here for sharing
+#require './t/bigfltpm.inc';           # all tests here for sharing
index a5bb947..675d1e9 100644 (file)
@@ -11,4 +11,4 @@ our ($CLASS, $CALC);
 $CLASS = "Math::BigRat";
 $CALC  = "Math::BigInt::Calc";  # backend
 
-require 't/bigratpm.inc';      # all tests here for sharing
+require './t/bigratpm.inc';    # all tests here for sharing
index 22e88b8..239f92a 100644 (file)
@@ -1278,7 +1278,7 @@ comes with Perl tries to convert C include files to Perl code, which
 can be C<require>d. FIONREAD ends up defined as a function in the
 I<sys/ioctl.ph> file:
 
-    require 'sys/ioctl.ph';
+    require './sys/ioctl.ph';
 
     $size = pack("L", 0);
     ioctl(FH, FIONREAD(), $size)    or die "Couldn't call ioctl: $!\n";
@@ -1378,7 +1378,7 @@ used for things that Perl opened itself, even if it was a dup of a
 numeric descriptor as with C<MHCONTEXT> above. But if you really have
 to, you may be able to do this:
 
-    require 'sys/syscall.ph';
+    require './sys/syscall.ph';
     my $rc = syscall(SYS_close(), $fd + 0);  # must force numeric
     die "can't sysclose $fd: $!" unless $rc == -1;
 
index 3431417..42b27ab 100644 (file)
@@ -239,7 +239,7 @@ and in pixels:
 This is more portable than the raw C<ioctl>, but not as
 illustrative:
 
-    require 'sys/ioctl.ph';
+    require './sys/ioctl.ph';
     die "no TIOCGWINSZ " unless defined &TIOCGWINSZ;
     open(my $tty_fh, "+</dev/tty")                     or die "No tty: $!";
     unless (ioctl($tty_fh, &TIOCGWINSZ, $winsize='')) {
index 2983f0b..4ec5195 100644 (file)
@@ -13,7 +13,7 @@ use threads;
 use Thread::Queue;
 
 if ($] == 5.008) {
-    require 't/test.pl';   # Test::More work-alike for Perl 5.8.0
+    require './t/test.pl';   # Test::More work-alike for Perl 5.8.0
 } else {
     require Test::More;
 }
index 0cebdc1..fdf8f6b 100644 (file)
@@ -14,7 +14,7 @@ use threads::shared;
 use Thread::Queue;
 
 if ($] == 5.008) {
-    require 't/test.pl';   # Test::More work-alike for Perl 5.8.0
+    require './t/test.pl';   # Test::More work-alike for Perl 5.8.0
 } else {
     require Test::More;
 }
index d543b59..29ef75e 100644 (file)
@@ -13,7 +13,7 @@ use threads;
 use Thread::Queue;
 
 if ($] == 5.008) {
-    require 't/test.pl';   # Test::More work-alike for Perl 5.8.0
+    require './t/test.pl';   # Test::More work-alike for Perl 5.8.0
 } else {
     require Test::More;
 }
index de0e78b..d8cb417 100644 (file)
@@ -13,7 +13,7 @@ use threads;
 use Thread::Queue;
 
 if ($] == 5.008) {
-    require 't/test.pl';   # Test::More work-alike for Perl 5.8.0
+    require './t/test.pl';   # Test::More work-alike for Perl 5.8.0
 } else {
     require Test::More;
 }
index 4f9d1df..93617e1 100644 (file)
@@ -13,7 +13,7 @@ use threads;
 use Thread::Queue;
 
 if ($] == 5.008) {
-    require 't/test.pl';   # Test::More work-alike for Perl 5.8.0
+    require './t/test.pl';   # Test::More work-alike for Perl 5.8.0
 } else {
     require Test::More;
 }
index b20e060..6337221 100644 (file)
@@ -14,7 +14,7 @@ use Thread::Queue;
 use Thread::Semaphore;
 
 if ($] == 5.008) {
-    require 't/test.pl';   # Test::More work-alike for Perl 5.8.0
+    require './t/test.pl';   # Test::More work-alike for Perl 5.8.0
 } else {
     require Test::More;
 }
index 8404720..da8b03a 100644 (file)
@@ -13,7 +13,7 @@ use threads;
 use Thread::Queue;
 
 if ($] == 5.008) {
-    require 't/test.pl';   # Test::More work-alike for Perl 5.8.0
+    require './t/test.pl';   # Test::More work-alike for Perl 5.8.0
 } else {
     require Test::More;
 }
index 1e9d110..cfdadb9 100644 (file)
@@ -14,7 +14,7 @@ use threads::shared;
 use Thread::Semaphore;
 
 if ($] == 5.008) {
-    require 't/test.pl';   # Test::More work-alike for Perl 5.8.0
+    require './t/test.pl';   # Test::More work-alike for Perl 5.8.0
 } else {
     require Test::More;
 }
index d1538e8..bef964e 100644 (file)
@@ -14,7 +14,7 @@ use threads::shared;
 use Thread::Semaphore;
 
 if ($] == 5.008) {
-    require 't/test.pl';   # Test::More work-alike for Perl 5.8.0
+    require './t/test.pl';   # Test::More work-alike for Perl 5.8.0
 } else {
     require Test::More;
 }
index ca888d8..ee7090b 100644 (file)
@@ -14,7 +14,7 @@ use threads::shared;
 use Thread::Semaphore;
 
 if ($] == 5.008) {
-    require 't/test.pl';   # Test::More work-alike for Perl 5.8.0
+    require './t/test.pl';   # Test::More work-alike for Perl 5.8.0
 } else {
     require Test::More;
 }
index 77fb65d..7fe30b3 100644 (file)
@@ -4,7 +4,7 @@ use strict;
 use Config;
 push @INC, '.';
 if (-f 't/test.pl') {
-  require 't/test.pl';
+  require './t/test.pl';
 } else {
   require '../../t/test.pl';
 }
index 422185e..ad4c187 100644 (file)
@@ -12,7 +12,7 @@ sub set_cbreak {
     local($on) = @_;
 
     require 'sizeof.ph';
-    require 'sys/ioctl.ph';
+    require './sys/ioctl.ph';
 
     ioctl(STDIN,&TIOCGETP,$sgttyb)
         || die "Can't ioctl TIOCGETP: $!";
index 8ac55a3..db71d26 100644 (file)
@@ -11,7 +11,7 @@ sub cooked {
 sub set_cbreak {
     local($on) = @_;
 
-    require 'sys/ioctl.pl';
+    require './sys/ioctl.pl';
 
     ioctl(STDIN,$TIOCGETP,$sgttyb)
         || die "Can't ioctl TIOCGETP: $!";
index 64d9dc0..bdcc389 100644 (file)
@@ -1,5 +1,4 @@
 #!./perl
-use strict;
 
 # quickie tests to see if h2ph actually runs and does more or less what is
 # expected
index d6c6ed0..bfee762 100644 (file)
@@ -1,7 +1,7 @@
 #!./perl
 
 chdir 't' if -d 't';
-@INC = '../lib';
+@INC = ( '.', '../lib' );
 
 our $local_tests = 6;
 require "../t/lib/common.pl";
index ee696fe..7c24f3a 100644 (file)
@@ -1,7 +1,7 @@
 #!./perl
 
 chdir 't' if -d 't';
-@INC = '../lib';
+@INC = ( '.', '../lib' );
 
 our $UTF8 = (${^OPEN} || "") =~ /:utf8/;
 require "../t/lib/common.pl";
index cb11e7e..68ae706 100644 (file)
@@ -70,7 +70,7 @@ BEGIN {
 }
 use constant PLATFORM => $ARGS{PLATFORM};
 
-require "$ARGS{TARG_DIR}regen/embed_lib.pl";
+require "./$ARGS{TARG_DIR}regen/embed_lib.pl";
 
 # Is the following guard strictly necessary? Added during refactoring
 # to keep the same behaviour when merging other code into here.
index acb8cf6..75bdcf2 100644 (file)
@@ -14,7 +14,7 @@ no locale;
 BEGIN {
   my $Top = File::Spec->catdir($FindBin::Bin, File::Spec->updir);
   chdir $Top or die "Can't chdir to $Top: $!";
-  require 'Porting/pod_lib.pl';
+  require './Porting/pod_lib.pl';
 }
 
 die "$0: Usage: $0 [--quiet]\n"
index 615ae4c..b92f9ca 100644 (file)
@@ -13,7 +13,7 @@ if (@ARGV) {
     chdir $workdir
         or die "Couldn't chdir to '$workdir': $!";
 }
-require 'regen/regen_lib.pl';
+require './regen/regen_lib.pl';
 
 # MANIFEST itself is Unix style filenames, so we have to assume that Unix style
 # filenames will work.
index 8788668..71a6eda 100644 (file)
--- a/regen.pl
+++ b/regen.pl
@@ -15,7 +15,7 @@ use strict;
 
 my $tap = $ARGV[0] && $ARGV[0] eq '--tap' ? '# ' : '';
 foreach my $pl (map {chomp; "regen/$_"} <DATA>) {
-  my @command =  ($^X, $pl, @ARGV);
+  my @command =  ($^X, '-I.', $pl, @ARGV);
   print "$tap@command\n";
   system @command
     and die "@command failed: $?" 
index fa8a051..a3e049d 100644 (file)
@@ -1,8 +1,11 @@
 use v5.16.0;
 use strict;
 use warnings;
-require 'regen/regen_lib.pl';
-require 'regen/charset_translations.pl';
+
+BEGIN { unshift @INC, '.' }
+
+require './regen/regen_lib.pl';
+require './regen/charset_translations.pl';
 
 # Generates the EBCDIC translation tables that were formerly hard-coded into
 # utfebcdic.h
index 50ca2eb..19256eb 100755 (executable)
@@ -26,8 +26,8 @@ use strict;
 
 BEGIN {
     # Get function prototypes
-    require 'regen/regen_lib.pl';
-    require 'regen/embed_lib.pl';
+    require './regen/regen_lib.pl';
+    require './regen/embed_lib.pl';
 }
 
 my $SPLINT = 0; # Turn true for experimental splint support http://www.splint.org
index 97d0359..f8cf4a8 100755 (executable)
@@ -11,7 +11,7 @@
 # This script is normally invoked from regen.pl.
 
 BEGIN {
-    require 'regen/regen_lib.pl';
+    require './regen/regen_lib.pl';
     push @INC, './lib';
 }
 use strict ;
index 7a03dcd..d886822 100644 (file)
@@ -3,7 +3,7 @@
 # it will generate EBCDIC too. (TODO)
 use strict;
 use Encode;
-require 'regen/regen_lib.pl';
+require './regen/regen_lib.pl';
 
 sub make_text {
     my ($chrmap, $letter, $unpredictable, $nocsum, $size, $condition) = @_;
index eafe58c..9619d86 100755 (executable)
@@ -11,7 +11,7 @@
 use strict;
 use Devel::Tokenizer::C 0.05;
 
-require 'regen/regen_lib.pl';
+require './regen/regen_lib.pl';
 
 my $h = open_new('keywords.h', '>',
                 { by => 'regen/keywords.pl', from => 'its data',
index c9d6e43..5e40b40 100644 (file)
@@ -1,7 +1,7 @@
 #!perl -w
 use strict;
-require 'regen/regen_lib.pl';
-require 'Porting/pod_lib.pl';
+require './regen/regen_lib.pl';
+require './Porting/pod_lib.pl';
 use vars qw($TAP $Verbose);
 
 # For processing later
index a05a7d4..342f5e0 100644 (file)
@@ -20,7 +20,7 @@ require 5.004;
 
 BEGIN {
     # Get function prototypes
-    require 'regen/regen_lib.pl';
+    require './regen/regen_lib.pl';
 }
 
 my %mg =
index 9123b3f..37a3fff 100644 (file)
@@ -4,7 +4,7 @@ use strict;
 
 BEGIN {
     # Get function prototypes
-    require 'regen/regen_lib.pl';
+    require './regen/regen_lib.pl';
     unshift @INC, 'ext/ExtUtils-Miniperl/lib';
 }
 
index 5b609e5..8b217b3 100644 (file)
@@ -2,8 +2,8 @@
 use v5.15.8;
 use strict;
 use warnings;
-require 'regen/regen_lib.pl';
-require 'regen/charset_translations.pl';
+require './regen/regen_lib.pl';
+require './regen/charset_translations.pl';
 
 # This program outputs l1_charclass_tab.h, which defines the guts of the
 # PL_charclass table.  Each line is a bit map of properties that the Unicode
index 460a72c..d6ff165 100644 (file)
@@ -8,8 +8,8 @@ use Unicode::UCD qw(prop_aliases
                     prop_invlist
                     prop_invmap search_invlist
                    );
-require 'regen/regen_lib.pl';
-require 'regen/charset_translations.pl';
+require './regen/regen_lib.pl';
+require './regen/charset_translations.pl';
 
 # This program outputs charclass_invlists.h, which contains various inversion
 # lists in the form of C arrays that are to be used as-is for inversion lists.
index edb9f4d..0bd62ce 100755 (executable)
@@ -20,7 +20,7 @@ use strict;
 
 BEGIN {
     # Get function prototypes
-    require 'regen/regen_lib.pl';
+    require './regen/regen_lib.pl';
 }
 
 my $oc = open_new('opcode.h', '>',
@@ -924,7 +924,7 @@ package main;
 # which define what bits in op_private have what meanings for each op.
 # It populates %LABELS, %DEFINES, %FLAGS, %BITFIELDS.
 
-require 'regen/op_private';
+require './regen/op_private';
 
 #use Data::Dumper;
 #print Dumper \%LABELS, \%DEFINES, \%FLAGS, \%BITFIELDS;
index c95ab2d..38dac32 100644 (file)
@@ -16,7 +16,7 @@
 
 BEGIN {
     # Get function prototypes
-    require 'regen/regen_lib.pl';
+    require './regen/regen_lib.pl';
 }
 
 use strict;
index 3a0afaf..564a68f 100644 (file)
@@ -18,7 +18,7 @@
 
 BEGIN {
     # Get function prototypes
-    require 'regen/regen_lib.pl';
+    require './regen/regen_lib.pl';
 }
 
 use strict;
index f3f8b99..c593334 100755 (executable)
@@ -11,8 +11,8 @@ our $hex_fmt= "0x%02X";
 sub DEBUG () { 0 }
 $|=1 if DEBUG;
 
-require 'regen/regen_lib.pl';
-require 'regen/charset_translations.pl';
+require './regen/regen_lib.pl';
+require './regen/charset_translations.pl';
 require "regen/regcharclass_multi_char_folds.pl";
 
 =head1 NAME
index 850eeb9..94aa572 100644 (file)
@@ -20,7 +20,7 @@
 
 BEGIN {
     # Get function prototypes
-    require 'regen/regen_lib.pl';
+    require './regen/regen_lib.pl';
 }
 use strict;
 
index 99a74f1..1c3d1b2 100755 (executable)
@@ -10,7 +10,7 @@
 
 use strict;
 use Config;
-require 'regen/regen_lib.pl';
+require './regen/regen_lib.pl';
 
 my ($uconfig_h, $uconfig_h_new, $config_h_sh)
     = ('uconfig.h', 'uconfig.h-new', 'config_h.SH');
index acdbaa3..cbe3179 100644 (file)
@@ -1,8 +1,8 @@
 use v5.16.0;
 use strict;
 use warnings;
-require 'regen/regen_lib.pl';
-require 'regen/charset_translations.pl';
+require './regen/regen_lib.pl';
+require './regen/charset_translations.pl';
 use Unicode::UCD;
 use charnames qw(:loose);
 
index 40e7265..739a7b4 100644 (file)
@@ -19,7 +19,7 @@
 $VERSION = '1.37';
 
 BEGIN {
-    require 'regen/regen_lib.pl';
+    require './regen/regen_lib.pl';
     push @INC, './lib';
 }
 use strict ;
index f9ef04b..b8fb5d7 100644 (file)
@@ -35,7 +35,7 @@ sub usage { die "usage: $0 [ -b bison_executable ] [ file.y ]\n" }
 use warnings;
 use strict;
 
-BEGIN { require 'regen/regen_lib.pl'; }
+BEGIN { require './regen/regen_lib.pl'; }
 
 my $bison = 'bison';
 
index 8361194..71626bb 100644 (file)
@@ -1,5 +1,7 @@
 #!./perl
 
+BEGIN { unshift @INC, '.' }
+
 chdir 't' if -d 't';
 
 sub ok {
index 8240dd6..e8d93e8 100644 (file)
@@ -1453,6 +1453,7 @@ END { print "in end\n"; }
 print "in mainline\n";
 1;
 --FILE--
+BEGIN { unshift @INC, '.' }
 require abc;
 do "abc.pm";
 EXPECT
index 6be6413..05f1573 100644 (file)
@@ -280,7 +280,7 @@ YYY: print "OK\n";
 EOT
 close $f;
 
-$r = runperl(prog => 'use Op_goto01; print qq[DONE\n]');
+$r = runperl(prog => 'BEGIN { unshift @INC, q[.] } use Op_goto01; print qq[DONE\n]');
 is($r, "OK\nDONE\n", "goto within use-d file"); 
 unlink_all "Op_goto01.pm";
 
index bc69e3a..563b92a 100644 (file)
@@ -7,7 +7,7 @@ BEGIN {
 use TestInit qw(T); # T is chdir to the top level
 use strict;
 
-require 't/test.pl';
+require './t/test.pl';
 find_git_or_skip('all');
 
 # This is the subset of "pretty=fuller" that checkAUTHORS.pl actually needs:
index 527995a..bbebd37 100644 (file)
@@ -8,7 +8,7 @@ BEGIN {
 use TestInit qw(T A); # T is chdir to the top level, A makes paths absolute
 use strict;
 
-require 't/test.pl';
+require './t/test.pl';
 my $source = find_git_or_skip('all');
 chdir $source or die "Can't chdir to $source: $!";
 
index 55b4003..bbbc852 100644 (file)
@@ -16,7 +16,7 @@ BEGIN {
 use TestInit qw(T A); # T is chdir to the top level, A makes paths absolute
 use strict;
 
-require 't/test.pl';
+require './t/test.pl';
 my $source = find_git_or_skip('all');
 chdir $source or die "Can't chdir to $source: $!";
 
index 251a260..820ff3e 100644 (file)
@@ -6,7 +6,7 @@ use TestInit qw(T);
 use strict;
 use Config;
 
-require 't/test.pl';
+require './t/test.pl';
 
 plan(tests => 6);
 
index ccde8cb..cdd9d64 100644 (file)
@@ -9,7 +9,7 @@ use warnings;
 use strict;
 use Config;
 
-require 't/test.pl';
+require './t/test.pl';
 
 if ( $Config{usecrosscompile} ) {
   skip_all( "Not all files are available during cross-compilation" );
@@ -26,7 +26,7 @@ plan('no_plan');
 my $make_exceptions_list = ($ARGV[0]||'') eq '--make-exceptions-list'
   and shift;
 
-require 'regen/embed_lib.pl';
+require './regen/embed_lib.pl';
 
 # Look for functions that look like they could be diagnostic ones.
 my @functions;
index 8dd45ba..605eba0 100644 (file)
@@ -4,7 +4,7 @@ use TestInit qw(T);
 use strict;
 use Config;
 
-require 't/test.pl';
+require './t/test.pl';
 
 skip_all("Code to read symbols not ported to $^O")
     if $^O eq 'VMS' or $^O eq 'MSWin32';
index b0dd440..7adb061 100644 (file)
@@ -30,7 +30,7 @@ BEGIN {
 }
 use TestInit qw(T); # T is chdir to the top level
 
-require 't/test.pl';
+require './t/test.pl';
 
 skip_all("Cross-compiling, the entire source might not be available")
     if $Config{usecrosscompile};
index 4dceaf6..0aaa546 100644 (file)
@@ -27,7 +27,7 @@ use TestInit qw(T); # T is chdir to the top level
 use strict;
 use File::Spec;
 
-require 't/test.pl';
+require './t/test.pl';
 find_git_or_skip('all');
 
 my $devnull = File::Spec->devnull;
index 46a0114..894b153 100644 (file)
@@ -25,7 +25,7 @@ BEGIN {
       chdir '..';
     }
     @INC = qw(lib .); # Special @INC.
-    require 't/test.pl';
+    require './t/test.pl';
 }
 
 use strict;
index e127920..232a45f 100644 (file)
@@ -10,7 +10,7 @@ BEGIN {
 use TestInit qw(T); # T is chdir to the top level
 use strict;
 use warnings;
-require 't/test.pl';
+require './t/test.pl';
 
 my @porting_files;
 open my $man, "MANIFEST" or die "Can't open MANIFEST: $!";
index 5d08518..3aa1fd5 100644 (file)
@@ -8,8 +8,8 @@ BEGIN {
 use TestInit qw(T A); # T is chdir to the top level, A makes paths absolute
 use strict;
 
-require 'regen/regen_lib.pl';
-require 't/test.pl';
+require './regen/regen_lib.pl';
+require './t/test.pl';
 $::NO_ENDING = $::NO_ENDING = 1;
 
 if ( $^O eq "VMS" ) {
@@ -86,7 +86,7 @@ OUTER: foreach my $file (@files) {
 }
 
 foreach (@progs) {
-    my $command = "$^X $_ --tap";
+    my $command = "$^X -I. $_ --tap";
     system $command
         and die "Failed to run $command: $?";
 }
index 475380d..92eafbd 100644 (file)
@@ -22,7 +22,7 @@ BEGIN {
 use TestInit qw(T); # T is chdir to the top level
 use strict;
 
-require 't/test.pl';
+require './t/test.pl';
 
 # It turns out that, since the default @INC will include your old 5.x libs, if
 # you have them, the Porting utils might load a library that no longer compiles
index eb321e9..b8d7680 100644 (file)
@@ -1699,7 +1699,7 @@ EOP
             # NOTE - Do not put quotes in the code!
             # NOTE - We have to triple escape the backref in the pattern below.
             my $code='
-                BEGIN{require q(test.pl);}
+                BEGIN{require q(./test.pl);}
                 watchdog(3);
                 for my $len (1 .. 20) {
                     my $eights= q(8) x $len;
@@ -1715,7 +1715,7 @@ EOP
             # #123562]
 
             my $code='
-                BEGIN{require q(test.pl);}
+                BEGIN{require q(./test.pl);}
                 use Encode qw(_utf8_on);
                 # \x80 and \x41 are continuation bytes in their respective
                 # character sets
@@ -1783,7 +1783,7 @@ EOP
                 my ($expr, $expect, $test_name, $cap1)= @$tuple;
                 # avoid quotes in this code!
                 my $code='
-                    BEGIN{require q(test.pl);}
+                    BEGIN{require q(./test.pl);}
                     watchdog(3);
                     my $status= eval(q{ !(' . $expr . ') ? q(failed) : ' .
                         ($cap1 ? '($1 ne q['.$cap1.']) ? qq(badmatch:$1) : ' : '') .
index 82846a4..8861a3d 100644 (file)
@@ -285,7 +285,8 @@ is ($err, '', 'No errors when determining @INC');
 
 my @default_inc = split /\n/, $out;
 
-is ($default_inc[-1], '.', '. is last in @INC');
+ok ! grep { $_ eq '.' } @default_inc, '. is not in @INC';
+#is ($default_inc[-1], '.', '. is last in @INC');
 
 my $sep = $Config{path_sep};
 foreach (['nothing', ''],
index 0018a74..b61be56 100644 (file)
@@ -194,12 +194,12 @@ sub import { print map "<\$_>", \@_ }
 SWTESTPM
     close $f or die "Could not close: $!";
     $r = runperl(
-       switches    => [ "-M$package" ],
+       switches    => [ "-I.", "-M$package" ],
        prog        => '1',
     );
     is( $r, "<$package>", '-M' );
     $r = runperl(
-       switches    => [ "-M$package=foo" ],
+       switches    => [ "-I.", "-M$package=foo" ],
        prog        => '1',
     );
     is( $r, "<$package><foo>", '-M with import parameter' );
@@ -213,7 +213,7 @@ SWTESTPM
         is( $r, '', '-m' );
     }
     $r = runperl(
-       switches    => [ "-m$package=foo,bar" ],
+       switches    => [ "-I.", "-m$package=foo,bar" ],
        prog        => '1',
     );
     is( $r, "<$package><foo><bar>", '-m with import parameters' );
index 349bcc9..de2ada0 100644 (file)
--- a/t/test.pl
+++ b/t/test.pl
@@ -652,7 +652,7 @@ sub _create_runperl { # Create the string to qx in runperl().
        $runperl = "$ENV{PERL_RUNPERL_DEBUG} $runperl";
     }
     unless ($args{nolib}) {
-       $runperl = $runperl . ' "-I../lib"'; # doublequotes because of VMS
+       $runperl = $runperl . ' "-I../lib" "-I." '; # doublequotes because of VMS
     }
     if ($args{switches}) {
        local $Level = 2;
@@ -1261,6 +1261,7 @@ sub run_multiple_progs {
        open my $fh, '>', $tmpfile or die "Cannot open >$tmpfile: $!";
        print $fh q{
         BEGIN {
+            push @INC, '.';
             open STDERR, '>&', STDOUT
               or die "Can't dup STDOUT->STDERR: $!;";
         }
index 27c371f..85b0833 100644 (file)
@@ -13,7 +13,7 @@ if (@ARGV) {
 # attempting to move the work from them to the extension directories and
 # ExtUtils::MakeMaker.
 
-require 'regen/regen_lib.pl';
+require './regen/regen_lib.pl';
 
 my $target = 'utils/Makefile';
 print "Extracting $target (with variable substitutions)\n";
index ea87a6f..c5b5a3f 100644 (file)
@@ -198,8 +198,8 @@ them in terms of packages and functions.  Consider the following program:
     #!/usr/local/bin/perl
 
     require 'syscall.ph';
-    require 'sys/time.ph';
-    require 'sys/resource.ph';
+    require './sys/time.ph';
+    require './sys/resource.ph';
 
     $ru = "\0" x &rusage'sizeof();
 
index e522913..81f8ae4 100644 (file)
@@ -231,7 +231,7 @@ if (defined($Config{'extensions'})) {
         next if $_ eq 'XS/APItest';
         next if $_ eq 'XS/Typemap';
            # VMS$ perl  -e "eval ""require \""Devel/DProf.pm\"";"" print $@"
-           # \NT> perl  -e "eval \"require 'Devel/DProf.pm'\"; print $@"
+           # \NT> perl  -e "eval \"require './Devel/DProf.pm'\"; print $@"
            # DProf: run perl with -d to use DProf.
            # Compilation failed in require at (eval 1) line 1.
         eval " require \"$_.pm\"; ";