summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-11-25 02:31:42 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-11-25 02:31:42 +0100
commitb328b7d17d7ebf0d856fea0ecd6a5d7d2b46d8fa (patch)
treec4cab02086d94f969e70ea090274c87569670dba /perl-install
parentc295f5ddc1c3f04f4856af7dc488f08ad446a646 (diff)
downloaddrakx-b328b7d17d7ebf0d856fea0ecd6a5d7d2b46d8fa.tar
drakx-b328b7d17d7ebf0d856fea0ecd6a5d7d2b46d8fa.tar.gz
drakx-b328b7d17d7ebf0d856fea0ecd6a5d7d2b46d8fa.tar.bz2
drakx-b328b7d17d7ebf0d856fea0ecd6a5d7d2b46d8fa.tar.xz
drakx-b328b7d17d7ebf0d856fea0ecd6a5d7d2b46d8fa.zip
drop unused function
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/harddrake25
1 files changed, 0 insertions, 5 deletions
diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2
index 08a81b913..0ee0c4b35 100755
--- a/perl-install/standalone/harddrake2
+++ b/perl-install/standalone/harddrake2
@@ -583,11 +583,6 @@ sub show_hide {
if ($bool) { $button->show } else { $button->hide }
}
-
-sub strip_first_underscore {
- join '', map { s/_//; $_ } @_;
-}
-
sub lookup_field {
my ($field) = @_;
my $class = find { defined $fields{$_} && defined $fields{$_}{$field} } ($current_class, 'generic');