From @cpansprout

$ 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.

Use of uninitialized value $category in concatenation (.) or string
at /usr/local/bin/perlbug5.13.1 line 645.
Use of uninitialized value $severity in concatenation (.) or string
at /usr/local/bin/perlbug5.13.1 line 645.

Flags​:
  category=docs
  severity=low

Site configuration information for perl 5.13.1​:

Configured by sprout at Sun Jun 6 14​:31​:27 PDT 2010.

Summary of my perl5 (revision 5 version 13 subversion 1 patch
v5.13.1-149-g6dd2be5) configuration​:
  Snapshot of​: 6dd2be5
  Platform​:
  osname=darwin, osvers=10.0.0, archname=darwin-2level
  uname='darwin pint.local 10.0.0 darwin kernel version 10.0.0​: fri
jul 31 22​:47​:34 pdt 2009; root​:xnu-1456.1.25~1release_i386 i386 '
  config_args='-de -Dusedevel'
  hint=recommended, useposix=true, d_sigaction=define
  useithreads=undef, usemultiplicity=undef
  useperlio=define, d_sfio=undef, uselargefiles=define,
usesocks=undef
  use64bitint=undef, use64bitall=undef, uselongdouble=undef
  usemymalloc=n, bincompat5005=undef
  Compiler​:
  cc='cc', ccflags ='-fno-common -DPERL_DARWIN -no-cpp-precomp -fno-
strict-aliasing -pipe -fstack-protector -I/usr/local/include',
  optimize='-O3',
  cppflags='-no-cpp-precomp -fno-common -DPERL_DARWIN -no-cpp-
precomp -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/
include'
  ccversion='', gccversion='4.2.1 (Apple Inc. build 5646)',
gccosandvers=''
  intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
  d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
  ivtype='long', ivsize=4, nvtype='double', nvsize=8,
Off_t='off_t', lseeksize=8
  alignbytes=8, prototype=define
  Linker and Libraries​:
  ld='env MACOSX_DEPLOYMENT_TARGET=10.3 cc', ldflags =' -fstack-
protector -L/usr/local/lib'
  libpth=/usr/local/lib /usr/lib
  libs=-ldbm -ldl -lm -lutil -lc
  perllibs=-ldl -lm -lutil -lc
  libc=/usr/lib/libc.dylib, so=dylib, useshrplib=false,
libperl=libperl.a
  gnulibc_version=''
  Dynamic Linking​:
  dlsrc=dl_dlopen.xs, dlext=bundle, d_dlsymun=undef, ccdlflags=' '
  cccdlflags=' ', lddlflags=' -bundle -undefined dynamic_lookup -L/
usr/local/lib -fstack-protector'

Locally applied patches​:

@​INC for perl 5.13.1​:
  /usr/local/lib/perl5/site_perl/5.13.1/darwin-2level
  /usr/local/lib/perl5/site_perl/5.13.1
  /usr/local/lib/perl5/5.13.1/darwin-2level
  /usr/local/lib/perl5/5.13.1
  /usr/local/lib/perl5/site_perl
  .

Environment for perl 5.13.1​:
  DYLD_LIBRARY_PATH (unset)
  HOME=/Users/sprout
  LANG=en_US.UTF-8
  LANGUAGE (unset)
  LD_LIBRARY_PATH (unset)
  LOGDIR (unset)
  PATH=/usr/bin​:/bin​:/usr/sbin​:/sbin​:/usr/local/bin​:/usr/X11/bin​:/
usr/local/bin
  PERL_BADLANG (unset)
  SHELL=/bin/bash

From @nwc10

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​:

I'm not sure what form a better fix would take.

Nicholas Clark

The RT System itself - Status changed from 'new' to 'open'

From @cpansprout

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.

From [Unknown Contact. See original ticket]

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.

From @ikegami

On Fri, Sep 23, 2011 at 1​:27 AM, Father Chrysostomos via RT <
perlbug-comment@​perl.org> wrote​:

Thank you. Applied as 0000000.

69dc7e4