From 6e9cebc99f0891387393de24b6041f2cbb4877b8 Mon Sep 17 00:00:00 2001
From: exercism-1 <exercism-1@users.noreply.github.com>
Date: Thu, 25 Jan 2018 13:41:15 +0100
Subject: [PATCH] avoid conditional variable declaration

perldoc perlsyn:

> The behaviour of a `my`, `state`, or `our` modified with a statement modifier conditional or loop construct (for example, `my $x if ...` ) is **undefined**.
---
 lib/SQL/Translator/Producer/SQLite.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/SQL/Translator/Producer/SQLite.pm b/lib/SQL/Translator/Producer/SQLite.pm
index 9cc92aff7..ffbbbe077 100644
--- a/lib/SQL/Translator/Producer/SQLite.pm
+++ b/lib/SQL/Translator/Producer/SQLite.pm
@@ -66,7 +66,8 @@ sub produce {
     local $NO_QUOTES = 0
       if $translator->quote_identifiers and $translator->quote_identifiers ne '0E0';
 
-    my $head = (header_comment() . "\n") unless $no_comments;
+    my $head;
+    $head = (header_comment() . "\n") unless $no_comments;
 
     my @create = ();