From 19df65ab1d608cc643687067870f46d20736dd6c Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Mon, 3 Feb 2003 12:32:15 +0000
Subject: integrated chmouel fixes.

---
 perl-install/bootloader.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index e57fd67dc..809d666b8 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -380,6 +380,12 @@ sub sanitize_ver {
 	my $s = $1;
 	$chtaim =~ m|^(\d+)\.(\d+)\.(\d+)\.(\d+)mdk|;
 	$return = "$1$2$3-$4$s";
+    } elsif ($chaloch =~ m|mdk| and $chtaim =~ /pre\d+/
+	     and $arba =~ m|(\d+)mdk(${mdksub})?|) { #new mdk with mdksub
+	my $r = $1;
+	my $s = $2 ? $2 : "";
+	$chtaim =~ m|^(\d+)\.(\d+)\.(\d+)pre(\d+)|;
+	$return = "$1$2$3-p$4$r$s";
     } elsif ($chtaim =~ m|mdk$|) { #new mdk
 	$chtaim =~ m|^(\d+)\.(\d+)\.(\d+)\.(\d+)mdk$|;
 	$return = "$1$2$3-$4";
-- 
cgit v1.2.1