From: Matt S Trout Date: Fri, 20 Feb 2009 10:26:22 +0000 (+0000) Subject: Merge 'multi_stuff' into 'trunk' X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6a8c869fa787c1137c074ffae7bba32f497529f8;hp=d3244de8898b85f40ae5c45fea914ee4ec0106fa;p=dbsrgits%2FDBIx-Class-Historic.git Merge 'multi_stuff' into 'trunk' --- diff --git a/Changes b/Changes index 9d7887b..a068719 100644 --- a/Changes +++ b/Changes @@ -23,6 +23,7 @@ Revision history for DBIx::Class - PG array datatype supported with SQLA >= 1.50 - insert should use store_column, not set_column to avoid marking clean just-stored values as dirty. New test for this (groditi) + - regression test for source_name (groditi) 0.08099_05 2008-10-30 21:30:00 (UTC) - Rewritte of Storage::DBI::connect_info(), extended with an diff --git a/Makefile.PL b/Makefile.PL index f590d45..c16fcdb 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -1,6 +1,7 @@ use inc::Module::Install 0.67; use strict; use warnings; +use POSIX (); use 5.006001; # delete this line if you want to send patches for earlier. @@ -119,9 +120,14 @@ EOW exit 0; } else { - wait(); + eval { + local $SIG{ALRM} = sub { die "timeout\n" }; + alarm 5; + wait(); + alarm 0; + }; my $sig = $? & 127; - if ($sig == 11) { + if ($@ || $sig == POSIX::SIGSEGV()) { warn (< work in the where-clause of a search. In +other words, in the first hashref of a search() method. Work is being done +to make them work as part of the second hashref (from, select, +select, etc). + =head2 Predefined searches You can write your own L class by inheriting from it