$NetBSD: patch-aa,v 1.1.1.1 2010/07/11 20:09:31 seb Exp $

From http://github.com/acme/parse-backpan-packages.git
Commit 2752cc6c816fe965711d

>Recent change to DBIx::Class doesn't like nullable foreign keys,
>not that we really need them

--- lib/BackPAN/Index.pm.orig	2010-04-17 17:20:07.000000000 +0000
+++ lib/BackPAN/Index.pm
@@ -240,14 +240,14 @@ sub _setup_database {
     my %create_for = (
         files           => <<'SQL',
 CREATE TABLE IF NOT EXISTS files (
-    path        TEXT            PRIMARY KEY,
+    path        TEXT            NOT NULL PRIMARY KEY,
     date        INTEGER         NOT NULL,
     size        INTEGER         NOT NULL CHECK ( size >= 0 )
 )
 SQL
         releases        => <<'SQL',
 CREATE TABLE IF NOT EXISTS releases (
-    path        TEXT            PRIMARY KEY REFERENCES files,
+    path        TEXT            NOT NULL PRIMARY KEY REFERENCES files,
     dist        TEXT            NOT NULL REFERENCES dists,
     date        INTEGER         NOT NULL,
     size        TEXT            NOT NULL,
@@ -260,7 +260,7 @@ SQL
 
         dists           => <<'SQL',
 CREATE TABLE IF NOT EXISTS dists (
-    name                TEXT            PRIMARY KEY,
+    name                TEXT            NOT NULL PRIMARY KEY,
     first_release       TEXT            NOT NULL REFERENCES releases,
     latest_release      TEXT            NOT NULL REFERENCES releases,
     first_date          INTEGER         NOT NULL,