perl-embperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Terrence Brannon <metap...@urth.org>
Subject [PATCH] DBIx::Compat and DBIx::Database for SQLite rudimentary support
Date Mon, 13 Oct 2003 13:18:43 GMT
SQLite does not have grant tables and so any part of the schema with 
grant syntax causes CreateTables() to die

  ~/hacks/DBIx-Recordset-0.24 $ diff -u Compat.pm~ Compat.pm
--- Compat.pm~    2003-10-12 18:40:18.687500000 -0700
+++ Compat.pm    2003-10-13 06:11:26.453125000 -0700
@@ -230,7 +230,8 @@
     (
     '*'  =>
             {
-            'Placeholders'   => 10,              # Default: Placeholder 
are supported
+         'HasGrant'       => 1,               # Default: database has GRANT
+         'Placeholders'   => 10,              # Default: Placeholder 
are supported
             'ListFields'     => \&SelectFields,  # Default: Use Select 
to get field names
             'ListTables'     => \&ListTables,    # Default: Use DBI 
$dbh -> tables
             # QuoteTypes isn't used anymore !!
@@ -263,6 +264,11 @@
             'HaveTypes'      => 0        # Driver does not support $sth 
-> {TYPE}
     },   
 
+    'SQLite' =>
+    {
+     HasGrant => 0
+    },   
+
     'CSV' =>
     {
             'Placeholders' => 2,                # Placeholders 
supported, but the perl
        ~/hacks/DBIx-Recordset-0.24 $
        ~/hacks/DBIx-Recordset-0.24 $ diff -u Database.pm~ Database.pm
--- Database.pm~    2001-07-09 12:59:48.000000000 -0700
+++ Database.pm    2003-10-13 06:12:32.968750000 -0700
@@ -1003,7 +1003,8 @@
         my %tabdef = (%DBDefault, %$tab, %{$tab -> {'!For'} -> {$drv} 
|| {}}) ;
         $tabname = "$tabprefix$tabdef{'!Table'}" ;
         my $init = $tabdef{'!Init'} ;
-        my $grant = (defined ($user) && $db -> {'*Username'} ne 
$user)?$tabdef{'!Grant'}:undef ;
+        my $grant = (DBIx::Compat::GetItem ($drv, 'HasGrant') and
+defined ($user) and $db -> {'*Username'} ne 
$user)?$tabdef{'!Grant'}:undef ;
         my $constraint  ;
         my $constraints = $tabdef{'!Constraints'} ;
         my $default = $tabdef{'!Default'} ;
        ~/hacks/DBIx-Recordset-0.24 $



---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org


Mime
View raw message