1 files changed, 0 insertions, 28 deletions
diff --git a/lib/MGA/DrakISO/Utils.pm b/lib/MGA/DrakISO/Utils.pm
index f5d83a7..cb2702d 100644
--- a/lib/MGA/DrakISO/Utils.pm
+++ b/lib/MGA/DrakISO/Utils.pm
@@ -26,10 +26,6 @@ package MGA::DrakISO::Utils;
 use strict;
 
 use MDK::Common;
-use common qw(removeXiBSuffix);
-use fs;
-use IPC::Open3;
-use IO::Select;
 
 use Exporter;
 our @ISA = qw(Exporter);
@@ -85,30 +81,6 @@ sub run_in_root {
     system(@cmd) == 0;
 }
 
-sub device_allocate_file {
-    my ($device, $size) = @_;
-    run_('dd', "of=$device", 'count=0', 'bs=1', "seek=" . removeXiBSuffix($size));
-}
-
-#- format $device as type $type
-# FIXME: use fs::format
-sub device_mkfs {
-    my ($device, $type, $o_label, $o_inode_size) = @_;
-    if ($type eq 'vfat') {
-        run_('mkfs.vfat', if_(defined $o_label, '-n', $o_label), $device);
-    } elsif (member($type, 'ext2', 'ext3', 'ext4')) {
-        run_("mkfs.$type", "-m", 0,
-             if_(defined $o_label, '-L', $o_label),
-             if_($o_inode_size, '-I', $o_inode_size),
-             if_(!-b $device, '-F'),
-             $device);
-    } elsif ($type eq 'swap') {
-        run_('mkswap', if_(defined $o_label, '-L', $o_label), $device);
-    } else {
-        die "ERROR: unable to mkfs for unsupported media type $type\n";
-    }
-}
-
 sub copy_or_link {
     my ($src_file, $dst_file) = @_;
     mkdir_p(dirname($dst_file));