diff options
Diffstat (limited to 'Tools.pm')
-rw-r--r-- | Tools.pm | 24 |
1 files changed, 12 insertions, 12 deletions
@@ -33,18 +33,18 @@ use base 'Exporter'; sub parse_mageia_iso_name { my ($name) = @_; - my %info = (); - - if ($name =~ m/^(Mageia)-(\d+)(-(alpha|beta|RC)(\d*))?(-(.*))?-(i586|x86_64|dual)?(-(CD|DVD|BD))?(-(build\_\w+))?\.(.*)$/) { - $info{"full"} = $name; - $info{"name"} = $1 if defined $1; - $info{"version"} = $2 if defined $2; - $info{"release"} = "$4$5" if defined $4; - $info{"variant"} = $7 if defined $7; - $info{"arch"} = $8 if defined $8; - $info{"medium"} = $10 if defined $10; - $info{"build"} = $12 if defined $12; - $info{"ext"} = $13 if defined $13; + my %info; + + if ($name =~ m/^(Mageia)-(\d+)(-(alpha|beta|RC)(\d*))?(-(.*))?-(i586|x86_64|dual)?(-(CD|DVD|BD))?(-(build_\w+))?\.(.*)$/) { + $info{full} = $name; + $info{name} = $1 if defined $1; + $info{version} = $2 if defined $2; + $info{release} = "$4$5" if defined $4; + $info{variant} = $7 if defined $7; + $info{arch} = $8 if defined $8; + $info{medium} = $10 if defined $10; + $info{build} = $12 if defined $12; + $info{ext} = $13 if defined $13; } |