diff options
| -rwxr-xr-x | perl-install/standalone/harddrake2 | 5 |
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'); |