1 files changed, 0 insertions, 164 deletions
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Readline.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Readline.pm
deleted file mode 100644
index 44ab74e..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Readline.pm
+++ /dev/null
@@ -1,164 +0,0 @@
-#!/usr/bin/perl -w
-# This file was preprocessed, do not edit!
-
-
-package Debconf::FrontEnd::Readline;
-use strict;
-use Term::ReadLine;
-use Debconf::Gettext;
-use base qw(Debconf::FrontEnd::Teletype);
-
-
-sub init {
-	my $this=shift;
-
-	$this->SUPER::init(@_);
-
-	open(TESTTY, "/dev/tty") || die gettext("This frontend requires a controlling tty.")."\n";
-	close TESTTY;
-
-	$Term::ReadLine::termcap_nowarn = 1; # Turn off stupid termcap warning.
-	$this->readline(Term::ReadLine->new('debconf'));
-	$this->readline->ornaments(1);
-
-	if (Term::ReadLine->ReadLine =~ /::Gnu$/) {
-		if (exists $ENV{TERM} && $ENV{TERM} =~ /emacs/i) {
-			die gettext("Term::ReadLine::GNU is incompatable with emacs shell buffers.")."\n";
-		}
-		
-		$this->readline->add_defun('previous-question',	
-			sub {
-				if ($this->capb_backup) {
-					$this->_skip(1);
-					$this->_direction(-1);
-					$this->readline->stuff_char(ord "\n");
-				}
-				else {
-					$this->readline->ding;
-				}
-			}, ord "\cu");
-		$this->readline->add_defun('next-question',
-			sub {
-				if ($this->capb_backup) {
-					$this->readline->stuff_char(ord "\n");
-				}
-			}, ord "\cv");
-		$this->readline->parse_and_bind('"\e[5~": previous-question');
-		$this->readline->parse_and_bind('"\e[6~": next-question');
-		$this->capb('backup');
-	}
-	
-	if (Term::ReadLine->ReadLine =~ /::Stub$/) {
-		$this->promptdefault(1);
-	}
-}
-
-
-sub elementtype {
-	return 'Teletype';
-}
-
-
-sub go {
-	my $this=shift;
-
-	foreach my $element (grep ! $_->visible, @{$this->elements}) {
-		my $value=$element->show;
-		return if $this->backup && $this->capb_backup;
-		$element->question->value($value);
-	}
-
-	my @elements=grep $_->visible, @{$this->elements};
-	unless (@elements) {
-		$this->_didbackup('');
-		return 1;
-	}
-
-	my $current=$this->_didbackup ? $#elements : 0;
-
-	$this->_direction(1);
-	for (; $current > -1 && $current < @elements; $current += $this->_direction) {
-		my $value=$elements[$current]->show;
-	}
-
-	if ($current < 0) {
-		$this->_didbackup(1);
-		return;
-	}
-	else {
-		$this->_didbackup('');
-		return 1;
-	}
-}
-
-
-sub prompt {
-	my $this=shift;
-	my %params=@_;
-	my $prompt=$params{prompt}." ";
-	my $default=$params{default};
-	my $noshowdefault=$params{noshowdefault};
-	my $completions=$params{completions};
-
-	if ($completions) {
-		my @matches;
-		$this->readline->Attribs->{completion_entry_function} = sub {
-			my $text=shift;
-			my $state=shift;
-			
-			if ($state == 0) {
-				@matches=();
-				foreach (@{$completions}) {
-					push @matches, $_ if /^\Q$text\E/i;
-				}
-			}
-
-			return pop @matches;
-		};
-	}
-	else {
-		$this->readline->Attribs->{completion_entry_function} = undef;
-	}
-
-	if (exists $params{completion_append_character}) {
-		$this->readline->Attribs->{completion_append_character}=$params{completion_append_character};
-	}
-	else {
-		$this->readline->Attribs->{completion_append_character}='';
-	}
-	
-	$this->linecount(0);
-	my $ret;
-	$this->_skip(0);
-	if (! $noshowdefault) {
-		$ret=$this->readline->readline($prompt, $default);
-	}
-	else {
-		$ret=$this->readline->readline($prompt);
-	}
-	$this->display_nowrap("\n");
-	return if $this->_skip;
-	$this->_direction(1);
-	$this->readline->addhistory($ret);
-	return $ret;
-}
-
-
-sub prompt_password {
-	my $this=shift;
-	my %params=@_;
-
-	if (Term::ReadLine->ReadLine =~ /::Perl$/) {
-		return $this->SUPER::prompt_password(%params);
-	}
-	
-	delete $params{default};
-	system('stty -echo 2>/dev/null');
-	my $ret=$this->prompt(@_, noshowdefault => 1, completions => []);
-	system('stty sane 2>/dev/null');
-	print "\n";
-	return $ret;
-}
-
-
-1