Forgot to attach the test I wrote.
diff -rN -u old-Test-Pod-1.20/t/bad.t new-Test-Pod-1.20/t/bad.t
--- old-Test-Pod-1.20/t/bad.t 1969-12-31 16:00:00.000000000 -0800
+++ new-Test-Pod-1.20/t/bad.t 2005-04-10 22:53:07.000000000 -0700
@@ -0,0 +1,19 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+use Test::Builder::Tester;
+use Test::More;
+my $TB = Test::More->builder;
+
+use Test::Pod;
+
+my @Files = all_pod_files("t/bad_pod");
+plan tests => scalar @Files;
+
+foreach my $file (@Files) {
+ my $test_num = $TB->current_test + 1;
+ test_out( "not ok $test_num - $file" );
+ pod_file_ok( $file, $file );
+ test_test("$file corrected failed POD test");
+}
diff -rN -u old-Test-Pod-1.20/t/bad_pod/bad_double_bracket.pod new-Test-Pod-1.20/t/bad_pod/bad_double_bracket.pod
--- old-Test-Pod-1.20/t/bad_pod/bad_double_bracket.pod 1969-12-31 16:00:00.000000000 -0800
+++ new-Test-Pod-1.20/t/bad_pod/bad_double_bracket.pod 2005-04-10 22:41:41.000000000 -0700
@@ -0,0 +1,22 @@
+=pod
+
+This is a pod file with errors.
+
+perlpodspec sez:
+
+A formatting code starts with a capital letter (just US-ASCII [A-Z])
+followed by two or more "<"'s, one or more whitespace characters,
+any number of characters, one or more whitespace characters,
+and ending with the first matching sequence of two or more ">"'s, where
+the number of ">"'s equals the number of "<"'s in the opening of this
+formatting code. Examples:
+
+ That's what I<< you >> think!
+
+ C<<< open(X, ">>thing.dat") || die $! >>>
+
+ B<< $foo->bar(); >>
+
+So C<<< C<<foo>> >>> is illegal. Therefore the following POD is bad.
+
+C<<foo>>
