From: Dagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Date: Tue, 1 Jan 2019 22:14:32 +0000 (+0100)
Subject: Exclude tables in the Oracle Recycle Bin (RT#128149)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=41a60472bdd5aaa5a75cbae2136962c683ac9dae;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

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

diff --git a/Changes b/Changes
index 3e824e5..17a41f4 100644
--- 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
--- 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 {