Exclude tables in the Oracle Recycle Bin (RT#128149)

diff --git a/Changes b/Changes
index 3e824e5..17a41f4 100644 (file)
--- a/Changes
+++ b/Changes
@@ -2,6 +2,7 @@ Revision history for Perl extension DBIx::Class::Schema::Loader
 
         - Revert inlining of String::CamelCase::wordsplit() (RT#125929)
         - Do not require MooseX::MarkAsMethods with only_autoclean=1 (GH#21)
+        - Exclude tables in the Oracle Recycle Bin (RT#128149)
 
 0.07049 - 2018-03-21
         - Fix tests when the path to perl has spaces in it (GH#19)

diff --git a/lib/DBIx/Class/Schema/Loader/DBI/Oracle.pm b/lib/DBIx/Class/Schema/Loader/DBI/Oracle.pm
index 6de246d..9b5d7c6 100644 (file)
--- a/lib/DBIx/Class/Schema/Loader/DBI/Oracle.pm
+++ b/lib/DBIx/Class/Schema/Loader/DBI/Oracle.pm
@@ -57,7 +57,11 @@ sub _system_schemas {
 sub _system_tables {
     my $self = shift;
 
-    return ($self->next::method(@_), 'PLAN_TABLE');
+    return (
+        $self->next::method(@_),
+        'PLAN_TABLE',
+        qr/\ABIN\$.*\$\d+\z/,   # Tables in the recycle bin
+    );
 }
 
 sub _dbh_tables {