[Bast-commits] r3305 - trunk/DBIx-Safe/lib/DBIx

[syber at dev.catalyst.perl.org]

Author: syber
Date: 2007-05-11 22:21:22 +0100 (Fri, 11 May 2007)
New Revision: 3305

Modified:
   trunk/DBIx-Safe/lib/DBIx/Safe.pm
Log:
bug fix :(

Modified: trunk/DBIx-Safe/lib/DBIx/Safe.pm
===================================================================
--- trunk/DBIx-Safe/lib/DBIx/Safe.pm	2007-05-11 14:21:39 UTC (rev 3304)
+++ trunk/DBIx-Safe/lib/DBIx/Safe.pm	2007-05-11 21:21:22 UTC (rev 3305)
@@ -250,6 +250,8 @@
 use base 'DBI::st';
 use strict;
 
+use constant PRIV => DBIx::Safe::PRIV();
+
 foreach my $func (qw/execute execute_array execute_for_fetch/) {
     no strict 'refs';
     *$func = sub {