-
Notifications
You must be signed in to change notification settings - Fork 560
New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
CPAN::shell to work in XEmacs M-x shell #770
Comments
From aichner@ecf.teradyne.comsorry for the last mail. "1" was even a little short for an executive Here's another patch, on top of my earlier patch entitled:
Hint, hint ;-> The problem: CPAN.pm 1.50 does not work in a shell started from XEmacs (M-x shell) Following patch fixes this. It executes the body of the I can now run Best regards, Adrian Inline Patchdiff -u c:\perl\5.00503\lib\CPAN-untar.pm c:\perl\5.00503\lib\CPAN.pm
--- c:\perl\5.00503\lib\CPAN-untar.pm Fri Oct 22 23:45:18 1999
+++ c:\perl\5.00503\lib\CPAN.pm Fri Oct 22 23:45:18 1999
@@ -95,24 +95,22 @@
my $prompt = "cpan> ";
local($^W) = 1;
- unless ($Suppress_readline) {
- require Term::ReadLine;
+ require Term::ReadLine;
# import Term::ReadLine;
- $term = Term::ReadLine->new('CPAN Monitor');
- if ($term->ReadLine eq "Term::ReadLine::Gnu") {
- my $attribs = $term->Attribs;
+ $term = Term::ReadLine->new('CPAN Monitor');
+ if ($term->ReadLine eq "Term::ReadLine::Gnu") {
+ my $attribs = $term->Attribs;
# $attribs->{completion_entry_function} =
# $attribs->{'list_completion_function'};
- $attribs->{attempted_completion_function} = sub {
- &CPAN::Complete::gnu_cpl;
- }
+ $attribs->{attempted_completion_function} = sub {
+ &CPAN::Complete::gnu_cpl;
+ }
# $attribs->{completion_word} =
# [qw(help me somebody to find out how
# to use completion with GNU)];
- } else {
- $readline::rl_completion_function =
- $readline::rl_completion_function = 'CPAN::Complete::cpl';
- }
+ } else {
+ $readline::rl_completion_function =
+ $readline::rl_completion_function = 'CPAN::Complete::cpl';
}
no strict;
----------------------------------------------------------------------------
Summary of my perl5 (5.0 patchlevel 5 subversion 03) configuration: Locally applied patches: @INC for perl 5.00503: Environment for perl 5.00503: |
Migrated from rt.perl.org#1694 (status was 'resolved')
Searchable as RT1694$
The text was updated successfully, but these errors were encountered: