This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Avoid POD in test files
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 13 Jul 2007 08:29:28 +0000 (08:29 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 13 Jul 2007 08:29:28 +0000 (08:29 +0000)
p4raw-id: //depot/perl@31604

lib/SelfLoader-buggy.t

index 07409c3..02da93c 100644 (file)
@@ -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
+# {
+#     +>*;
+# }