From: ivan Date: Wed, 7 Nov 2007 21:06:43 +0000 (+0000) Subject: Patch from ISHIGAKI@cpan.org to suppress unnecessary warnings about undefined local_o... X-Git-Tag: DBIx_DBSchema_0_36~2 X-Git-Url: http://git.freeside.biz/gitweb/?p=DBIx-DBSchema.git;a=commitdiff_plain;h=b9c971968e49bef83646411d7c257ed6d721f051 Patch from ISHIGAKI@cpan.org to suppress unnecessary warnings about undefined local_options, thanks! --- diff --git a/Changes b/Changes index 24f1d66..bf6150f 100644 --- 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 --- 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 --- 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} : ''; } }