summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-05-21 15:50:53 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-05-21 15:50:53 +0000
commit74b8f914828de0575905aac17c301fdc33f6c61b (patch)
treea001543c86f5d51936cbb94e4347d203d38fb1cd /perl-install
parentb9b5945d54da8d5875fa79d4da75505b9e4aad84 (diff)
downloaddrakx-74b8f914828de0575905aac17c301fdc33f6c61b.tar
drakx-74b8f914828de0575905aac17c301fdc33f6c61b.tar.gz
drakx-74b8f914828de0575905aac17c301fdc33f6c61b.tar.bz2
drakx-74b8f914828de0575905aac17c301fdc33f6c61b.tar.xz
drakx-74b8f914828de0575905aac17c301fdc33f6c61b.zip
remove unused function that should never have come to live
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/harddrake22
1 files changed, 0 insertions, 2 deletions
diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2
index 927763ce1..bb8e810f1 100755
--- a/perl-install/standalone/harddrake2
+++ b/perl-install/standalone/harddrake2
@@ -352,8 +352,6 @@ sub strip_first_underscore {
join '', map { s/_//; $_ } @_;
}
-sub strip_first_slash { print "PROCESS \"$_\" => "; s!/!!; print "\"$_\"\n"; $_ }
-
sub rename_field {
my ($dev, $field, $new_field) = @_;
if ($dev->{$field}) {