Avoid POD in test files

p4raw-id: //depot/perl@31604

diff --git a/lib/SelfLoader-buggy.t b/lib/SelfLoader-buggy.t
index 07409c3..02da93c 100644 (file)
--- a/lib/SelfLoader-buggy.t
+++ b/lib/SelfLoader-buggy.t
@@ -27,25 +27,22 @@ sub buggy
 }
 
 
-=head1 RT 40216 
-
-  by Bo Lindbergh <blgl@hagernas.com>, at Aug 22, 2006 5:42 PM
-
-In the example below, there's a syntax error in the selfloaded
-code for main::buggy.  When the eval fails, SelfLoader::AUTOLOAD
-tries to report this with "croak $@;".  Unfortunately,
-SelfLoader::croak does "require Carp;" without protecting $@,
-which gets clobbered.  The program then dies with the
-uninformative message " at ./example line 3".
-
-#! /usr/local/bin/perl
-use SelfLoader;
-buggy();
-__END__
-sub buggy
-{
-    +>*;
-}
-
-=cut
-
+# RT 40216
+#
+# by Bo Lindbergh <blgl@hagernas.com>, at Aug 22, 2006 5:42 PM
+#
+# In the example below, there's a syntax error in the selfloaded
+# code for main::buggy.  When the eval fails, SelfLoader::AUTOLOAD
+# tries to report this with "croak $@;".  Unfortunately,
+# SelfLoader::croak does "require Carp;" without protecting $@,
+# which gets clobbered.  The program then dies with the
+# uninformative message " at ./example line 3".
+#
+# #! /usr/local/bin/perl
+# use SelfLoader;
+# buggy();
+# __END__
+# sub buggy
+# {
+#     +>*;
+# }