/
usr
/
share
/
perl5
/
Debconf
/
Element
/
/usr/share/perl5/Debconf/Element
mkdir
upload
Name
Size
Mode
Actions
Dialog/
-
0755
rm
Editor/
-
0755
rm
Gnome/
-
0755
rm
Noninteractive/
-
0755
rm
Teletype/
-
0755
rm
Web/
-
0755
rm
Gnome.pm
2871
0644
edit
dl
rm
Multiselect.pm
916
0644
edit
dl
rm
Noninteractive.pm
342
0644
edit
dl
rm
Select.pm
1982
0644
edit
dl
rm
Edit:
/usr/share/perl5/Debconf/Element/Multiselect.pm
(916B)
#!/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
Save
cmd:
run