X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSchema%2FLoader%2FDBI%2FADO%2FMS_Jet.pm;h=42482b66e6c075c9d0f206f3151b8e6f6536df34;hb=6fae835328a0aec8cad2fb45ea819c4359e16df2;hp=a052f388a794bca98dd39deee9e3507285ced06b;hpb=5975bbe67547badcbf19b1eded170ca6beea301b;p=dbsrgits%2FDBIx-Class-Schema-Loader.git diff --git a/lib/DBIx/Class/Schema/Loader/DBI/ADO/MS_Jet.pm b/lib/DBIx/Class/Schema/Loader/DBI/ADO/MS_Jet.pm index a052f38..42482b6 100644 --- a/lib/DBIx/Class/Schema/Loader/DBI/ADO/MS_Jet.pm +++ b/lib/DBIx/Class/Schema/Loader/DBI/ADO/MS_Jet.pm @@ -191,6 +191,33 @@ sub _columns_info_for { return $result; } +# Trap and ignore OLE warnings from nonexistant comments tables. + +sub _table_comment { + my $self = shift; + + my $warn_handler = $SIG{__WARN__} || sub { warn @_ }; + + local $SIG{__WARN__} = sub { + $warn_handler->(@_) unless $_[0] =~ /cannot find the input table/; + }; + + $self->next::method(@_); +} + +sub _column_comment { + my $self = shift; + + my $warn_handler = $SIG{__WARN__} || sub { warn @_ }; + + local $SIG{__WARN__} = sub { + $warn_handler->(@_) unless $_[0] =~ /cannot find the input table/; + }; + + $self->next::method(@_); +} + + =head1 SEE ALSO L,