remove mkswap from commands.pm, so no need anymore to have mkswap_ (the drawback is that the mkswap command won't create the device anymore)

1 files changed, 1 insertions, 7 deletions

diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index eb14a1362..77991a0e0 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -3,7 +3,7 @@ package commands; # $Id$
 #-########################################################################
 #- This file implement many common shell commands:
 #- true, false, cat, which, dirname, basename, rmdir, lsmod, grep, tr,
-#- mount, umount, mkdir, mknod, ln, rm, chmod, chown, mkswap, swapon,
+#- mount, umount, mkdir, mknod, ln, rm, chmod, chown, swapon,
 #- swapoff, ls, cp, ps, dd, head, tail, strings, hexdump, more, insmod,
 #- modprobe, route, df, kill, lspci, lssbus, dmesg, sort, du, 
 #-########################################################################
@@ -162,12 +162,6 @@ sub chown_ {
     &$chown(@_);
 }
 
-sub mkswap {
-    @_ == 1 or die "mkswap <device>\n";
-    require swap;
-    swap::enable($_[0], 0);
-}
-
 sub swapon {
     @_ == 1 or die "swapon <file>\n";
     require swap;