http://www.perlmonks.org?node_id=53110

package One; @ISA = qw(Two); package Two; @ISA = qw(One); use Carp; croak "Let me out!";

Replies are listed 'Best First'.
Re: How To Keep Carp Busy
by tye (Sage) on Jan 20, 2001 at 01:57 UTC
    package Catch; @ISA = qw(TwentyTwo); package TwentyTwo; @ISA = qw(Catch); use Carp; croak "I want out!";

    (: ++MeowChow

            - tye (but my friends call me "Tye")
      or just:
      package Catch::22; @ISA = 'Catch::22'; use Carp; croak 'Let me out!';
      i think this one qualifies as perl poetry :)
Re (tilly) 1: How To Keep Carp Busy
by tilly (Archbishop) on Jan 20, 2001 at 02:02 UTC
    Fixed in the current development release. :-)

    I still need to send in some more cleanup though. And build a test-suite. :-(

    Anyways this is an example of what you have to watch out for with recursion.