This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Demonstrate how File::Spec->catfile('.', @other_args) works.
authorJames E Keenan <jkeenan@cpan.org>
Mon, 18 Dec 2017 22:02:55 +0000 (17:02 -0500)
committerJames E Keenan <jkeenan@cpan.org>
Mon, 18 Dec 2017 22:02:55 +0000 (17:02 -0500)
For:  RT # 131296

dist/PathTools/t/Spec.t

index 643f4a0..84ed6b1 100644 (file)
@@ -61,6 +61,9 @@ my @tests = (
 [ "Unix->catfile('a', do { my \$x = 'b'.chr(0xaf); use utf8 (); utf8::upgrade(\$x); \$x })",   'a/b'.chr(0xaf)   ],
 ) : ()),
 [ "Unix->catfile(substr('foo', 2))", 'o' ],
+# https://rt.cpan.org/Ticket/Display.html?id=121633
+# https://rt.perl.org/Ticket/Display.html?id=131296
+[ "Unix->catfile('.', 'hints', 'Makefile.PL')", 'hints/Makefile.PL' ],
 
 [ "Unix->splitpath('file')",            ',,file'            ],
 [ "Unix->splitpath('/d1/d2/d3/')",      ',/d1/d2/d3/,'      ],