use_ok( "SQL::Translator::Producer::SQLite" );
# This test reproduces a bug in SQL::Translator::Producer::SQLite.
-#
+#
# When tables are created their names are not added to %global_names, and
# may be duplicated.
#
# SQL::Translator::Producer::SQLite version 1.59.
# compliments of SymKat <symkat@symkat.com>
-
+
my $output = SQL::Translator
sub has_dupes {
my ( @list ) = @_;
my %hist;
-
+
for my $elem ( @list ) {
return 0 if exists $hist{$elem};
$hist{$elem} = 1;