develooper Front page | perl.perl5.porters | Postings from September 2011

[perl #75722] Recursive call to Perl_load_module in PerlIO_find_layer

Thread Next
From:
Father Chrysostomos via RT
Date:
September 22, 2011 22:27
Subject:
[perl #75722] Recursive call to Perl_load_module in PerlIO_find_layer
Message ID:
rt-3.6.HEAD-31297-1316755629-596.75722-14-0@perl.org
On Mon Jun 14 04:15:23 2010, nicholas wrote:
> On Sun, Jun 13, 2010 at 06:29:52PM -0700, Father Chrysostomos wrote:
> > # New Ticket Created by  Father Chrysostomos 
> > # Please include the string:  [perl #75722]
> > # in the subject line of all future correspondence about this issue. 
> > # <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=75722 >
> > 
> > 
> > $ perl -le' unshift @INC, sub { return undef unless caller eq "main";  
> > open my $fh, "<", \1; $fh }; require oaeunt'
> > Recursive call to Perl_load_module in PerlIO_find_layer at -e line 1.
> > BEGIN failed--compilation aborted.
> > 
> > This error message is not documented in perldiag.
> > 
> > Also, as an aside, it would be nice if this limitation could be lifted.
> 
> Slaven added this error, and the restriction, in 2002:
> 
> http://perl5.git.perl.org/perl.git/commit/d7a09b413c09654b
> in response to this bug
http://rt.perl.org/rt3/Ticket/Display.html?id=18203
> 
>     This will blow your stack:
>     
>     perl -Mopen=IO,:non-existant -MAnything -e1
>     
>     A possible solution is to install a recursion watcher. Here is a patch
>     against bleedperl:

Thank you.  Applied as 0000000.


Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About