From fcb048e838437ea239ca672729f6ed83768b97f8 Mon Sep 17 00:00:00 2001
From: Kenichi Ishigaki <ishigaki@cpan.org>
Date: Mon, 11 Jan 2016 19:32:19 +0900
Subject: [PATCH] silenced uuv

---
 util/SQLiteUtil.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/util/SQLiteUtil.pm b/util/SQLiteUtil.pm
index 3f9f2f7..9eee18b 100644
--- a/util/SQLiteUtil.pm
+++ b/util/SQLiteUtil.pm
@@ -360,7 +360,7 @@ sub as_num {
 
 sub dotted {
   my $self = shift;
-  join '.', map {$_ + 0} $self->[3] + 0 ? @$self : @$self[0..2];
+  join '.', map {$_ + 0} ($self->[3] && $self->[3] + 0) ? @$self : @$self[0..2];
 }
 
 sub year {