1 files changed, 0 insertions, 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]);