aplinfo: allow version without -\d+ endings

7cfb65bf · Dietmar Maurer · 30ec25a0 · 7cfb65bf
Commit 7cfb65bf authored Aug 29, 2015 by Dietmar Maurer
Show whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

APLInfo.pm PVE/APLInfo.pm +1 -1

No files found.
--- a/PVE/APLInfo.pm
+++ b/PVE/APLInfo.pm
@@ -69,7 +69,7 @@ sub read_aplinfo_from_fh {
 		$res->{description} = $long;
 	    } elsif ($rec =~ s/^Version:\s*(.*\S)\s*\n//i) {
 		my $version = $1;
-		if ($version =~ m/^(\d[a-zA-Z0-9\.\+\-\:\~]*)-(\d+)$/) {
+		if ($version =~ m/^(\d[a-zA-Z0-9\.\+\-\:\~]*)(-(\d+))?$/) {
 		    $res->{version} = $version;
 		} else {
 		    my $msg = "unable to parse appliance record: version = '$version'\n";