From 284ee36926a3676cf58b5ef9c016d94007a85d97 Mon Sep 17 00:00:00 2001
From: Torsten Seemann <torsten.seemann@gmail.com>
Date: Wed, 15 Aug 2018 19:03:31 +1000
Subject: [PATCH] Issue #187 | fix cut+paste error, restore FORMAT defs

---
 bin/snippy-vcf_extract_subs | 2 +-
 perl5/Snippy/Version.pm     | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/bin/snippy-vcf_extract_subs b/bin/snippy-vcf_extract_subs
index 4f9a633..5d9045d 100755
--- a/bin/snippy-vcf_extract_subs
+++ b/bin/snippy-vcf_extract_subs
@@ -25,7 +25,7 @@ my @keep_info = split m/,/, $info_tags;
 my %keep_info = (map { $_ => 1 } @keep_info);
 
 my @keep_format = split m/,/, $format_tags;
-my %keep_format = (map { $_ => 1 } @keep_info);
+my %keep_format = (map { $_ => 1 } @keep_format);
 
 # . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
 # Main
diff --git a/perl5/Snippy/Version.pm b/perl5/Snippy/Version.pm
index a01e919..dc5c4a7 100644
--- a/perl5/Snippy/Version.pm
+++ b/perl5/Snippy/Version.pm
@@ -4,7 +4,7 @@ use base Exporter;
 @EXPORT_OK = qw(version);
 %EXPORT_TAGS = ( 'all' =>  [ @EXPORT_OK ] );
 
-our $VERSION = "4.0.4";
+our $VERSION = "4.0.5";
 
 use strict;
 use File::Basename;