# You may redistribute only under the same terms as Perl 5, as specified
# in the README file that comes with the distribution.
#
-# $Log: recurse.t,v $
-# Revision 1.0.1.3 2001/02/17 12:28:33 ram
-# patch8: ensure blessing occurs ASAP, specially designed for hooks
-#
-# Revision 1.0.1.2 2000/11/05 17:22:05 ram
-# patch6: stress hook a little more with refs to lexicals
-#
-# $Log: recurse.t,v $
-# Revision 1.0.1.1 2000/09/17 16:48:05 ram
-# patch1: added test case for store hook bug
-#
-# $Log: recurse.t,v $
-# Revision 1.0 2000/09/01 19:40:42 ram
-# Baseline for first official release.
-#
sub BEGIN {
if ($ENV{PERL_CORE}){