[Cpan-forum-commit] rev 164 - in trunk: . bin t/lib/CPAN/Forum

[svn at pti.co.il]

Author: gabor
Date: 2006-08-25 18:15:01 +0300 (Fri, 25 Aug 2006)
New Revision: 164

Modified:
   trunk/
   trunk/bin/populate.pl
   trunk/t/lib/CPAN/Forum/Test.pm
Log:
fix populate script to use new way of connecting to database



Property changes on: trunk
___________________________________________________________________
Name: svk:merge
   - 8c4c90e1-83eb-0310-96eb-e7cb62807872:/local/cpan-forum:10991
   + 8c4c90e1-83eb-0310-96eb-e7cb62807872:/local/cpan-forum:10992

Modified: trunk/bin/populate.pl
===================================================================
--- trunk/bin/populate.pl	2006-08-25 15:14:46 UTC (rev 163)
+++ trunk/bin/populate.pl	2006-08-25 15:15:01 UTC (rev 164)
@@ -24,7 +24,7 @@
 
 
 my $dbfile       = "$opts{dir}/forum.db";
-CPAN::Forum::DBI->myinit($dbfile);
+CPAN::Forum::DBI->myinit("dbi:SQLite:$dbfile");
 
 
 my $csv          = Text::CSV_XS->new();

Modified: trunk/t/lib/CPAN/Forum/Test.pm
===================================================================
--- trunk/t/lib/CPAN/Forum/Test.pm	2006-08-25 15:14:46 UTC (rev 163)
+++ trunk/t/lib/CPAN/Forum/Test.pm	2006-08-25 15:15:01 UTC (rev 164)
@@ -2,11 +2,11 @@
 
 use File::Copy qw(copy);
 
-require Exporter;
-use vars qw(@ISA @EXPORT);
- at ISA    = qw(Exporter);
+#require Exporter;
+#use vars qw(@ISA @EXPORT);
+#@ISA    = qw(Exporter);
 
- at EXPORT = qw(@users);
+#@EXPORT = qw(@users);
 
 my $ROOT = "blib";  
 
@@ -18,7 +18,7 @@
 );
 
 sub setup_database {
-    chdir "blib";
+    chdir $ROOT;
     copy "../t/CONFIG", ".";
     mkdir "schema";
     copy "../schema/schema.sql", "schema";