Fix Perl script registration version

Perl knows "0" as false so if "0" is used as a version, it doesn't
recognize it as being defined
This commit is contained in:
culb 2017-03-27 11:16:10 -04:00
parent 89686f6f48
commit 0e7f264c71

View File

@ -102,7 +102,7 @@ sub register {
unless( $name && $name =~ /[[:print:]\w]/ ) {
$name = "Not supplied";
}
unless( $version && $version =~ /\d+(?:\.\d+)?/ ) {
unless( defined $version && $version =~ /\d+(?:\.\d+)?/ ) {
$version = "NaN";
}
$pkg_info->{gui_entry} =