Patch from ISHIGAKI@cpan.org to suppress unnecessary warnings about undefined local_o...

diff --git a/Changes b/Changes
index 24f1d66..bf6150f 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,9 @@
 Revision history for Perl extension DBIx::DBSchema.
 
+0.36 unreleased
+        - Patch from ISHIGAKI@cpan.org to suppress unnecessary warnings about
+          undefined local_options, thanks!
+
 0.35 Mon Oct 29 18:58:36 PDT 2007
         - Fix minor breakage (pretty_print) resulting from Jesse's changes.
        - Update mysql driver to handle BIGSERIAL columns

diff --git a/DBSchema.pm b/DBSchema.pm
index 5cda990..8c89d1c 100644 (file)
--- a/DBSchema.pm
+++ b/DBSchema.pm
@@ -10,7 +10,7 @@ use DBIx::DBSchema::Column;
 use DBIx::DBSchema::ColGroup::Unique;
 use DBIx::DBSchema::ColGroup::Index;
 
-$VERSION = "0.35";
+$VERSION = "0.36";
 $VERSION = eval $VERSION; # modperlstyle: convert the string into a number
 
 $DEBUG = 0;

diff --git a/DBSchema/Table.pm b/DBSchema/Table.pm
index 6463ee0..225bcbb 100644 (file)
--- a/DBSchema/Table.pm
+++ b/DBSchema/Table.pm
@@ -10,7 +10,7 @@ use DBIx::DBSchema::Index;
 use DBIx::DBSchema::ColGroup::Unique;
 use DBIx::DBSchema::ColGroup::Index;
 
-$VERSION = '0.06';
+$VERSION = '0.07';
 $DEBUG = 0;
 
 =head1 NAME
@@ -360,7 +360,7 @@ sub local_options {
   if ( defined($value) ) {
     $self->{local_options} = $value;
   } else {
-    $self->{local_options};
+    defined $self->{local_options} ? $self->{local_options} : '';
   }
 }