Portability fix for Test::Simple 'do' test.
authorCraig A. Berry <craigberry@mac.com>
Thu, 16 Nov 2017 21:01:56 +0000 (15:01 -0600)
committerCraig A. Berry <craigberry@mac.com>
Thu, 16 Nov 2017 21:08:46 +0000 (15:08 -0600)
Prepending './' to what might not be a Unix filespec can't be
relied on to work (and it definitely doesn't on VMS). So use the
functions File::Spec provides to do this portably.

N.B.  File::Spec->catfile() is smart enough not to prepend the
value of curdir() if it's already there.

Porting/Maintainers.pl
cpan/Test-Simple/t/Legacy/Tester/tbt_09do.t
t/porting/customized.dat

index fb5b8c1..511e742 100755 (executable)
@@ -1082,6 +1082,10 @@ use File::Glob qw(:case);
                 t/zzz-check-breaks.t
                 ),
         ],
+        'CUSTOMIZED'   => [ qw[
+            t/Legacy/Tester/tbt_09do.t
+        ] ],
+
     },
 
     'Text::Abbrev' => {
index 570ca9d..97b8f57 100644 (file)
@@ -9,7 +9,8 @@ use File::Basename qw(dirname);
 use File::Spec qw();
 
 my $file = File::Spec->join(dirname(__FILE__), 'tbt_09do_script.pl');
-$file = "./$file" unless $file =~ m{^\.?/};
+$file = File::Spec->catfile(File::Spec->curdir(), $file)
+        unless File::Spec->file_name_is_absolute($file);
 my $done = do $file;
 ok(defined($done), 'do succeeded') or do {
     if ($@) {
index 3787dfa..bbd3fc3 100644 (file)
@@ -20,6 +20,7 @@ Pod::Checker cpan/Pod-Checker/t/pod/testpchk.pl b2072c7f4379fd050e15424175d7cac5
 Pod::Perldoc cpan/Pod-Perldoc/lib/Pod/Perldoc.pm 582be34c077c9ff44d99914724a0cc2140bcd48c
 Socket cpan/Socket/Socket.pm ee83312b6e3e0185af8d41a18635913d84b1b651
 Socket cpan/Socket/Socket.xs edd4fed212785f11c5c2095a75941dad27d586d9
+Test::Simple cpan/Test-Simple/t/Legacy/Tester/tbt_09do.t 59e2880e287e75ed5c129e7136dfa43344ee3d3b
 autodie cpan/autodie/t/mkdir.t 9e70d2282a3cc7d76a78bf8144fccba20fb37dac
 perlfaq cpan/perlfaq/lib/perlfaq5.pod bcc1b6af3b6dff3973643acf8d5e741463374123
 perlfaq cpan/perlfaq/lib/perlfaq8.pod bffbc0c8fa828aead24e0891a5e789369a8e0743