diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2005-06-03 05:15:22 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2005-06-03 05:15:22 +0000 |
commit | ea607f14437a383766adf80dee4ccec500d7abf0 (patch) | |
tree | 12813c33b726b2c7d39398688e6455b7e10476bd | |
parent | 1307e76b81d7d2cee184f1ec465cdd47af15afc4 (diff) | |
download | drakx-ea607f14437a383766adf80dee4ccec500d7abf0.tar drakx-ea607f14437a383766adf80dee4ccec500d7abf0.tar.gz drakx-ea607f14437a383766adf80dee4ccec500d7abf0.tar.bz2 drakx-ea607f14437a383766adf80dee4ccec500d7abf0.tar.xz drakx-ea607f14437a383766adf80dee4ccec500d7abf0.zip |
drop oooold broken code
-rw-r--r-- | perl-install/commands.pm | 7 |
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]); |