Re: Mark II (was: proposed perform_transaction() method)

[John Siracusa]

On 4/2/04 6:26 AM, Randal L. Schwartz wrote:
> sub atomically {
>   my $class = shift;
>   my $action = shift;         # coderef
>   local $class->db_Main->{AutoCommit}; # turn off AutoCommit for this block
> 
>   my @result;
>   eval {
>     @result = wantarray ? $action->() : scalar($action->());
                ^^^^^^^^^
>     $class->dbi_commit;
>   };

Heh, isn't this the same bug pointed out earlier? :)

-John