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
(from parent 1:
b555e4b
)
Pod::Html's feature2.t needs to match path separators portably.
author
Nicholas Clark
<nick@ccl4.org>
Tue, 14 Feb 2012 22:06:24 +0000
(23:06 +0100)
committer
Nicholas Clark
<nick@ccl4.org>
Wed, 15 Feb 2012 10:49:02 +0000
(11:49 +0100)
On Win32 the path separator in the output it is testing is backslash.
This implies that it will be ] on VMS. Tweak the regular expression to
match these in addition to / for *nix.
ext/Pod-Html/t/feature2.t
patch
|
blob
|
blame
|
history
diff --git
a/ext/Pod-Html/t/feature2.t
b/ext/Pod-Html/t/feature2.t
index
105d420
..
920f310
100644
(file)
--- a/
ext/Pod-Html/t/feature2.t
+++ b/
ext/Pod-Html/t/feature2.t
@@
-27,7
+27,7
@@
convert_n_test("feature2", "misc pod-html features 2",
like($warn,
qr(
\Acaching\ directories\ for\ later\ use\n
- Converting\ input\ file\ \S+
/feature2\.pod\n\z
+ Converting\ input\ file\ \S+
[/\\\]]feature2\.pod\n\z
)x,
"misc pod-html --verbose warnings");