1 files changed, 14 insertions, 1 deletions
diff --git a/perl-install/devices.pm b/perl-install/devices.pm
index 8a3654566..54fe0a27f 100644
--- a/perl-install/devices.pm
+++ b/perl-install/devices.pm
@@ -52,7 +52,7 @@ sub set_loop {
     my $dev = find_free_loop();
 
     if ($o_encrypt_key && $o_encryption) {
-	eval { modules::load('cryptoloop', 'aes') };
+	eval { modules::load('cryptoloop', 'aes-i586') };
 	my $cmd = "losetup -p 0 -e $o_encryption $dev $file";
 	log::l("calling $cmd");
 	open(my $F, "|$cmd");
@@ -239,4 +239,17 @@ sub from_devfs {
     undef;
 }
 
+sub simple_partition_scan {
+    my ($part) = @_;
+    $part->{device} =~ /([hs]d[a-z])(\d+)$/;
+}
+sub part_number {
+    my ($part) = @_;
+    (simple_partition_scan($part))[1];
+}
+sub part_prefix {
+    my ($part) = @_;
+    (simple_partition_scan($part))[0];
+}
+
 1;