From b328b7d17d7ebf0d856fea0ecd6a5d7d2b46d8fa Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 25 Nov 2013 02:31:42 +0100 Subject: drop unused function --- perl-install/standalone/harddrake2 | 5 ----- 1 file changed, 5 deletions(-) (limited to 'perl-install/standalone/harddrake2') 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'); -- cgit v1.2.1