delete beagle-dir

Signed-off-by: Manuel Traut <manut@mecka.net>

1 files changed, 0 insertions, 47 deletions

diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Multiselect.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Multiselect.pm
deleted file mode 100644
index 1d1b26e..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Multiselect.pm
+++ /dev/null
@@ -1,47 +0,0 @@
-#!/usr/bin/perl -w
-# This file was preprocessed, do not edit!
-
-
-package Debconf::Element::Multiselect;
-use strict;
-use base qw(Debconf::Element::Select);
-
-
-sub order_values {
-	my $this=shift;
-	my %vals=map { $_ => 1 } @_;
-	$this->question->template->i18n('');
-	my @ret=grep { $vals{$_} } $this->question->choices_split;
-	$this->question->template->i18n(1);
-	return @ret;
-}
-
-
-sub visible {
-        my $this=shift;
-
-        my @choices=$this->question->choices_split;
-        return ($#choices >= 0);
-}
-
-
-sub translate_default {
-	my $this=shift;
-
-	my @choices=$this->question->choices_split;
-	$this->question->template->i18n('');
-	my @choices_c=$this->question->choices_split;
-	$this->question->template->i18n(1);
-	
-	my @ret;
-	foreach my $c_default ($this->question->value_split) {
-		foreach (my $x=0; $x <= $#choices; $x++) {
-			push @ret, $choices[$x]
-				if $choices_c[$x] eq $c_default;
-		}
-	}
-	return @ret;
-}
-
-
-1