From 1307e76b81d7d2cee184f1ec465cdd47af15afc4 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 3 Jun 2005 05:14:45 +0000
Subject: drop oooold deprecated code

---
 perl-install/commands.pm | 18 ------------------
 1 file changed, 18 deletions(-)

(limited to 'perl-install/commands.pm')

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";
-- 
cgit v1.2.1