From ea607f14437a383766adf80dee4ccec500d7abf0 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 3 Jun 2005 05:15:22 +0000
Subject: drop oooold broken code

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

diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index db3e5c2d2..e92fe73d8 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -149,13 +149,6 @@ sub swapoff {
     fs::swapoff($_[0]);
 }
 
-sub uncpio {
-    @_ and die "uncpio reads from stdin\n";
-
-#    cpioInstallArchive(gzdopen(0, "r"), NULL, 0, NULL, NULL, &fail);
-}
-
-
 sub rights {
     my $r = '-' x 9;
     my @rights = (qw(x w r x w r x w r), ['t', 0], ['s', 3], ['s', 6]);
-- 
cgit v1.2.1