From: Ken Youens-Clark <kclark@cpan.org>
Date: Thu, 6 Nov 2003 00:49:50 +0000 (+0000)
Subject: Added map to overcome "Use of uninitialized value in join or string at
X-Git-Tag: v0.04~17
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c9ca0061724a4c4bb5e1f60d8361d590896eeeb1;p=dbsrgits%2FSQL-Translator.git

Added map to overcome "Use of uninitialized value in join or string at
t/02mysql-parser.t line 378" error.
---

diff --git a/t/02mysql-parser.t b/t/02mysql-parser.t
index 30971e8..946d938 100644
--- a/t/02mysql-parser.t
+++ b/t/02mysql-parser.t
@@ -375,7 +375,8 @@ use SQL::Translator::Schema::Constants;
     is( $c5->type, FOREIGN_KEY, 'Constraint is a FK' );
     is( join(',', $c5->fields), 'store_id', 'Constraint is on "store_id"' );
     is( $c5->reference_table, 'store', 'To table "store"' );
-    is( join(',', $c5->reference_fields), '', 'No reference fields defined' );
+    is( join(',', map { $_ || '' } $c5->reference_fields), '', 
+        'No reference fields defined' );
 
     my $t2  = shift @tables;
     is( $t2->name, 'address', 'Found "address" table' );