Do not fail comparing with empty versions

[clawsker.git] / clawsker

diff --git a/clawsker b/clawsker
index 13a0d993d858d709e456c885758a8d39b6a5a6ee..6594bd73cb16469132eddc7563b8dd4d281aed4c 100755 (executable)
--- a/clawsker
+++ b/clawsker
@@ -296,6 +296,8 @@ use constant PAGE_SPC => 5;
 
 sub version_greater_or_equal {
     my ($version, $refvers) = @_;
 
 sub version_greater_or_equal {
     my ($version, $refvers) = @_;

+    return TRUE if (length($version) == 0 and length($refvers) >= 0);
+    return FALSE if (length($version) >= 0 and length($refvers) == 0);

     return TRUE if (version->parse($version) >= version->parse($refvers));
     return FALSE;
 }
     return TRUE if (version->parse($version) >= version->parse($refvers));
     return FALSE;
 }