From a37cecd08c3ae8d213618c5781a947d5c10ae92f Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Fri, 13 Jul 2007 08:29:28 +0000 Subject: [PATCH] Avoid POD in test files p4raw-id: //depot/perl@31604 --- lib/SelfLoader-buggy.t | 41 +++++++++++++++++++---------------------- 1 file changed, 19 insertions(+), 22 deletions(-) diff --git a/lib/SelfLoader-buggy.t b/lib/SelfLoader-buggy.t index 07409c3..02da93c 100644 --- a/lib/SelfLoader-buggy.t +++ b/lib/SelfLoader-buggy.t @@ -27,25 +27,22 @@ sub buggy } -=head1 RT 40216 - - by Bo Lindbergh , 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 , 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 +# { +# +>*; +# } -- 1.8.3.1