diff options
| author | Gabor Szabo <szabgab@gmail.com> | 2009-06-22 22:42:57 +0300 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-06-22 23:03:51 +0200 |
| commit | aeeb13907a575905ecbff42fc030f66088fa79b1 (patch) | |
| tree | 0a979382495382e703617b2bcc14de54a417cc62 /lib/Term | |
| parent | 38b3c827d86b040f3d6f398e5a8cb318bc031ed4 (diff) | |
| download | perl-aeeb13907a575905ecbff42fc030f66088fa79b1.tar.gz | |
avoid trying to load packages that are in the same file
(amended by rgs)
Diffstat (limited to 'lib/Term')
| -rw-r--r-- | lib/Term/ReadLine.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/Term/ReadLine.pm b/lib/Term/ReadLine.pm index d251271056..9681c117ca 100644 --- a/lib/Term/ReadLine.pm +++ b/lib/Term/ReadLine.pm @@ -303,7 +303,7 @@ sub get_line { package Term::ReadLine; # So late to allow the above code be defined? -our $VERSION = '1.03'; +our $VERSION = '1.04'; my ($which) = exists $ENV{PERL_RL} ? split /\s+/, $ENV{PERL_RL} : undef; if ($which) { @@ -311,6 +311,9 @@ if ($which) { eval "use Term::ReadLine::Gnu;"; } elsif ($which =~ /\bperl\b/i) { eval "use Term::ReadLine::Perl;"; + } elsif ($which =~ /^(Stub|TermCap|Tk)$/) { + # it is already in memory to avoid false exception as seen in: + # PERL_RL=Stub perl -e'$SIG{__DIE__} = sub { print @_ }; require Term::ReadLine' } else { eval "use Term::ReadLine::$which;"; } |