Adrian Corston wrote:

The following example code shows that Log4perl's configuration is being trashed when calling ->deploy(). The failure behaviour is demonstrated by the lack of a "debug after" debug message.


mst says "if bits of SQLT fail please post patches to the DBIC list" so here is patch and a test.

Cheers,
A.

--
Adrian Corston
Support Engineer
YourAmigo

IMPORTANT - This email message is for the sole use of the intended recipient(s) 
and may contain confidential and privileged information in which case neither 
is intended to be waived. YourAmigo retains ownership of all copyright, trade 
secrets and other intellectual property rights in the email and attachments. 
Any unauthorized review, use, disclosure or distribution is prohibited. If you 
are not the intended recipient, please notify us and remove it from your 
system. It is your responsibility to check any attachments for viruses and 
defects before opening or sending them on. YourAmigo collects personal 
information to provide and market our services. For more information about use, 
disclosure and access, see our privacy policy at http://www.youramigo.com

*** SQL/Translator/Schema/Graph.pm       2007-01-11 15:48:18.000000000 +0000
--- SQL/Translator/Schema/Graph.pm.fixed 2007-05-24 13:19:25.000000000 +0000
***************
*** 5,12 ****
  use Data::Dumper;
  local $Data::Dumper::Maxdepth = 3;
  
! use Log::Log4perl qw(:easy);
! Log::Log4perl->easy_init($ERROR);
  use SQL::Translator::Schema::Graph::Node;
  use SQL::Translator::Schema::Graph::Edge;
  use SQL::Translator::Schema::Graph::Port;
--- 5,11 ----
  use Data::Dumper;
  local $Data::Dumper::Maxdepth = 3;
  
! use Log::Log4perl;
  use SQL::Translator::Schema::Graph::Node;
  use SQL::Translator::Schema::Graph::Edge;
  use SQL::Translator::Schema::Graph::Port;

Attachment: sqlt-schema-graph.t
Description: Troff document

_______________________________________________
List: http://lists.rawmode.org/cgi-bin/mailman/listinfo/dbix-class
Wiki: http://dbix-class.shadowcatsystems.co.uk/
IRC: irc.perl.org#dbix-class
SVN: http://dev.catalyst.perl.org/repos/bast/trunk/DBIx-Class/
Searchable Archive: http://www.mail-archive.com/[email protected]/

Reply via email to