summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-06-03 05:14:45 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-06-03 05:14:45 +0000
commit1307e76b81d7d2cee184f1ec465cdd47af15afc4 (patch)
treead4bd13deb78fe84bca34895d57e215e265fb732
parent2fbb5a0bf3ccf3096417626c256d9a442289204c (diff)
downloaddrakx-1307e76b81d7d2cee184f1ec465cdd47af15afc4.tar
drakx-1307e76b81d7d2cee184f1ec465cdd47af15afc4.tar.gz
drakx-1307e76b81d7d2cee184f1ec465cdd47af15afc4.tar.bz2
drakx-1307e76b81d7d2cee184f1ec465cdd47af15afc4.tar.xz
drakx-1307e76b81d7d2cee184f1ec465cdd47af15afc4.zip
drop oooold deprecated code
-rw-r--r--perl-install/commands.pm18
1 files changed, 0 insertions, 18 deletions
diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index b8359d54b..db3e5c2d2 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -437,24 +437,6 @@ sub du {
print &$f($_) >> 1, "\t$_\n" foreach @_ ? @_ : glob_("*");
}
-sub install_cpio($$;@) {
- my ($dir, $name, @more) = @_;
-
- return "$dir/$name" if -e "$dir/$name";
-
- my $cpio = "$dir.cpio.bz2";
- -e $cpio or return;
-
- eval { rm("-r", $dir) };
- mkdir $dir, 0755;
- require run_program;
-
- my $more = join " ", map { $_ && "$_ $_/*" } @more;
- run_program::run("cd $dir ; $ENV{LD_LOADER} bzip2 -cd $cpio | $ENV{LD_LOADER} cpio -id $name $name/* $more");
-
- "$dir/$name";
-}
-
sub bug {
my ($h) = getopts(\@_, "h");
$h and die "usage: bug\nput file report.bug on fat formatted floppy\n";