From: Dagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Date: Tue, 6 Jan 2015 15:38:25 +0000 (+0000)
Subject: Fix SQLite diffing on perl 5.8.1
X-Git-Tag: v0.11021~5
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0444e6867c6c2cad9473ec285de3a2cff3cafee5;p=dbsrgits%2FSQL-Translator.git

Fix SQLite diffing on perl 5.8.1

Empty subs return their arguments in list context on 5.8.1, so stick
an empty expression in it.
---

diff --git a/lib/SQL/Translator/Producer/SQLite.pm b/lib/SQL/Translator/Producer/SQLite.pm
index 1c04edd..98b0eab 100644
--- a/lib/SQL/Translator/Producer/SQLite.pm
+++ b/lib/SQL/Translator/Producer/SQLite.pm
@@ -370,7 +370,7 @@ sub create_trigger {
   return @statements;
 }
 
-sub alter_table { } # Noop
+sub alter_table { () } # Noop
 
 sub add_field {
   my ($field) = @_;