X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fpod%2Fpoderrs.t;h=98c6320792a5a1cf92f38385bfcb5e7c3be71a14;hb=09576c7db8c59458f52d7746e7f4062d64ff34e7;hp=1b92ede3bb00a385453348a9aa82c00628d4d420;hpb=dbd1b0a240e81742f12d4fa9574cf883a061b223;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/pod/poderrs.t b/t/pod/poderrs.t
index 1b92ede..98c6320 100755
--- a/t/pod/poderrs.t
+++ b/t/pod/poderrs.t
@@ -1,7 +1,7 @@
 BEGIN {
-   chdir 't' if -d 't';
-   unshift @INC, '../lib';
-   unshift @INC, './pod';
+   use File::Basename;
+   my $THISDIR = dirname $0;
+   unshift @INC, $THISDIR;
    require "testpchk.pl";
    import TestPodChecker;
 }
@@ -17,6 +17,7 @@ exit( ($passed == 1) ? 0 : -1 )  unless $ENV{HARNESS_ACTIVE};
 
 __END__
 
+=head2 This should cause a warning
 
 =head1 NAME
 
@@ -193,6 +194,16 @@ we already have a head Misc
 
 previous section is empty!
 
+=head1 LINK TESTS
+
+Due to bug reported by Rafael Garcia-Suarez "rgarciasuarez@free.fr":
+
+The following hyperlinks :
+L<"I/O Operators">
+L<perlop/"I/O Operators">
+trigger a podchecker warning (using bleadperl) :
+    node 'I/O Operators' contains non-escaped | or /
+
 =cut