This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
247cee9
)
Demonstrate how File::Spec->catfile('.', @other_args) works.
author
James E Keenan
<jkeenan@cpan.org>
Mon, 18 Dec 2017 22:02:55 +0000
(17:02 -0500)
committer
James E Keenan
<jkeenan@cpan.org>
Mon, 18 Dec 2017 22:02:55 +0000
(17:02 -0500)
For: RT # 131296
dist/PathTools/t/Spec.t
patch
|
blob
|
blame
|
history
diff --git
a/dist/PathTools/t/Spec.t
b/dist/PathTools/t/Spec.t
index
643f4a0
..
84ed6b1
100644
(file)
--- a/
dist/PathTools/t/Spec.t
+++ b/
dist/PathTools/t/Spec.t
@@
-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/,' ],