diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-25 02:31:42 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-25 02:31:42 +0100 |
| commit | b328b7d17d7ebf0d856fea0ecd6a5d7d2b46d8fa (patch) | |
| tree | c4cab02086d94f969e70ea090274c87569670dba /perl-install | |
| parent | c295f5ddc1c3f04f4856af7dc488f08ad446a646 (diff) | |
| download | drakx-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-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'); |