From f9de6b17e6e2eb031e84d60bf36863ac32c16262 Mon Sep 17 00:00:00 2001
From: "Vitaly Gimly (es1866)" <vgimly@gmail.com>
Date: Tue, 25 Oct 2016 13:13:01 +0300
Subject: [PATCH] fix negative number support

---
 lib/Convert/Bencode.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Convert/Bencode.pm b/lib/Convert/Bencode.pm
index ff6073f..8adca66 100644
--- a/lib/Convert/Bencode.pm
+++ b/lib/Convert/Bencode.pm
@@ -102,7 +102,7 @@ sub bencode {
 		$line .= 'e';
 		return $line;
 	}
-	if($item =~ /^\d+$/) {
+	if($item =~ /^(?:0|-?[1-9]\d*)$/) {
 		$line = 'i';
 		$line .= $item;
 		$line .= 'e';