summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2003-02-03 12:32:15 +0000
committerFrancois Pons <fpons@mandriva.com>2003-02-03 12:32:15 +0000
commit19df65ab1d608cc643687067870f46d20736dd6c (patch)
tree55d3eb2b86b0658ada5fee34fc2cea533a721418 /perl-install
parent403e5e792818761ace4f1183b22aa0cbad52455a (diff)
downloaddrakx-19df65ab1d608cc643687067870f46d20736dd6c.tar
drakx-19df65ab1d608cc643687067870f46d20736dd6c.tar.gz
drakx-19df65ab1d608cc643687067870f46d20736dd6c.tar.bz2
drakx-19df65ab1d608cc643687067870f46d20736dd6c.tar.xz
drakx-19df65ab1d608cc643687067870f46d20736dd6c.zip
integrated chmouel fixes.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootloader.pm6
1 files changed, 6 insertions, 0 deletions
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";