modifying package: perl-dbi-5.10.0 20090210 -> 20090216

perl-dbi/perl-dbi.patch

@@ -127,83 +127,3 @@ Index: DBD-mysql-4.010/dbdimp.h
  #include <mysql.h>  /* Comes with MySQL-devel */
  #include <mysqld_error.h>  /* Comes MySQL */
  
-Index: SQL-Translator-0.09003/Build.PL
---- SQL-Translator-0.09003/Build.PL.orig	2009-02-07 19:21:37 +0100
-+++ SQL-Translator-0.09003/Build.PL	2009-02-10 08:57:34 +0100
-@@ -25,7 +25,6 @@
-     'Class::MakeMethods'       => 0,
-     'Digest::SHA1'             => 2.00,
-     'IO::Dir'                  => 0,
--    'Log::Log4perl'            => 0,
-     'Parse::RecDescent'        => 1.94,
-     'Pod::Usage'               => 0,
-     'Class::Accessor::Fast'    => 0,
-@@ -45,13 +44,6 @@
-     'XML::XPath'              => 1.13,
-   },
-   build_requires => {
--    'File::Basename'          => 0,
--    'File::Spec'              => 0,
--    'Test::More'              => 0.6,
--    'Test::Differences'       => 0,
--    'Test::Exception'         => 0,
--    'Test::Differences'       => 0,
--    'YAML'                    => 0.39,
-   },
- 
-   add_to_cleanup => [ 'SQL-Translator-*' ],
-Index: SQL-Translator-0.09003/lib/SQL/Translator/Schema/Graph.pm
---- SQL-Translator-0.09003/lib/SQL/Translator/Schema/Graph.pm.orig	2009-02-07 19:21:37 +0100
-+++ SQL-Translator-0.09003/lib/SQL/Translator/Schema/Graph.pm	2009-02-10 08:56:57 +0100
-@@ -5,8 +5,6 @@
- use Data::Dumper;
- local $Data::Dumper::Maxdepth = 3;
- 
--use Log::Log4perl qw(:easy);
--Log::Log4perl->easy_init($ERROR) unless Log::Log4perl->initialized();
- use SQL::Translator::Schema::Graph::Node;
- use SQL::Translator::Schema::Graph::Edge;
- use SQL::Translator::Schema::Graph::Port;
-@@ -173,7 +171,6 @@
-   }
- 
-   my $graph = $self; #hack
--  my $log   = Log::Log4perl->get_logger('SQL.Translator.Schema.Graph');
- 
-   #
-   # create methods
-@@ -208,8 +205,6 @@
-           $hyperedge->push_thatfield($edge->thisfield);
-           $hyperedge->push_thatviafield($edge->thatfield);
-         }
--        $log->debug($edge->thisfield->name);
--        $log->debug($edge->thatfield->name);
-       }
- 
-       if ($hyperedge->count_thisnode == 1 and $hyperedge->count_thatnode == 1) {
-@@ -222,25 +217,11 @@
-         $hyperedge->type('many2many');
-       }
- 
--      $log->debug($_) foreach sort keys %::SQL::Translator::Schema::Graph::HyperEdge::;
--
-       #node_to won't always be defined b/c of multiple edges to a single other node
-       if (defined($node_to)) {
--        $log->debug($node_from->name);
--        $log->debug($node_to->name);
--
-         if (scalar($hyperedge->thisnode) > 1) {
--          $log->debug($hyperedge->type ." via ". $hyperedge->vianode->name);
-           my $i = 0;
-           foreach my $thisnode ( $hyperedge->thisnode ) {
--            $log->debug($thisnode->name .' '.
--                        $hyperedge->thisfield_index(0)->name .' -> '.
--                        $hyperedge->thisviafield_index($i)->name .' '.
--                        $hyperedge->vianode->name .' '.
--                        $hyperedge->thatviafield_index(0)->name .' <- '.
--                        $hyperedge->thatfield_index(0)->name .' '.
--                        $hyperedge->thatnode_index(0)->name ."\n"
--                       );
-             $i++;
-           }
-         }

perl-dbi/perl-dbi.spec

@@ -29,7 +29,7 @@
 %define       V_sql_routine     0.70.3
 %define       V_sql_builder     0.033
 %define       V_sql_interpolate 0.33
-%define       V_sql_translator  0.09003
+%define       V_sql_translator  0.09004
 %define       V_dbd_mock        1.39
 %define       V_dbd_anydata     0.09
 %define       V_dbd_csv         0.22
@@ -54,7 +54,7 @@ Class:        BASE
 Group:        Perl
 License:      GPL/Artistic
 Version:      %{V_perl}
-Release:      20090210
+Release:      20090216
 
 #   package options
 %option       with_sqlite       yes