summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-06-03 05:15:22 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-06-03 05:15:22 +0000
commitea607f14437a383766adf80dee4ccec500d7abf0 (patch)
tree12813c33b726b2c7d39398688e6455b7e10476bd /perl-install
parent1307e76b81d7d2cee184f1ec465cdd47af15afc4 (diff)
downloaddrakx-ea607f14437a383766adf80dee4ccec500d7abf0.tar
drakx-ea607f14437a383766adf80dee4ccec500d7abf0.tar.gz
drakx-ea607f14437a383766adf80dee4ccec500d7abf0.tar.bz2
drakx-ea607f14437a383766adf80dee4ccec500d7abf0.tar.xz
drakx-ea607f14437a383766adf80dee4ccec500d7abf0.zip
drop oooold broken code
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/commands.pm7
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]);