From 0e7f264c7192b2f1125d23d075135b2a7513cde2 Mon Sep 17 00:00:00 2001
From: culb <the01culb@gmail.com>
Date: Mon, 27 Mar 2017 11:16:10 -0400
Subject: [PATCH] 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
---
 plugins/perl/lib/HexChat.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/plugins/perl/lib/HexChat.pm b/plugins/perl/lib/HexChat.pm
index 1b354de9..e9e294ee 100644
--- a/plugins/perl/lib/HexChat.pm
+++ b/plugins/perl/lib/HexChat.pm
@@ -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} =