[Catalyst-commits] r13391 - in Catalyst-Helper-AuthDBIC/trunk: . lib/Catalyst/Helper

[zarquon at dev.catalyst.perl.org]

Author: zarquon
Date: 2010-07-06 10:44:57 +0100 (Tue, 06 Jul 2010)
New Revision: 13391

Modified:
   Catalyst-Helper-AuthDBIC/trunk/Changes
   Catalyst-Helper-AuthDBIC/trunk/lib/Catalyst/Helper/AuthDBIC.pm
Log:
fix RT #57648

Modified: Catalyst-Helper-AuthDBIC/trunk/Changes
===================================================================
--- Catalyst-Helper-AuthDBIC/trunk/Changes	2010-07-06 09:13:17 UTC (rev 13390)
+++ Catalyst-Helper-AuthDBIC/trunk/Changes	2010-07-06 09:44:57 UTC (rev 13391)
@@ -1,3 +1,5 @@
+0.13 Jun 6 2010
+     - Fixed hard coded / for dir path to make things work in Windows (thanks Curtiss Jewel and rfulbrig RT #57648)
 0.12 Feb 20 2010
      - applied patch from RT #47226 thanks to kmx
      - apply patch from RT #54533 thanks to alfston pinto

Modified: Catalyst-Helper-AuthDBIC/trunk/lib/Catalyst/Helper/AuthDBIC.pm
===================================================================
--- Catalyst-Helper-AuthDBIC/trunk/lib/Catalyst/Helper/AuthDBIC.pm	2010-07-06 09:13:17 UTC (rev 13390)
+++ Catalyst-Helper-AuthDBIC/trunk/lib/Catalyst/Helper/AuthDBIC.pm	2010-07-06 09:44:57 UTC (rev 13391)
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use Catalyst::Helper;
-our $VERSION = '0.12';
+our $VERSION = '0.13';
 use Carp;
 use DBI;
 use DBIx::Class::Schema::Loader qw/ make_schema_at /;
@@ -97,8 +97,10 @@
                       dump_directory => 'lib' ,
                   },
                    ["dbi:SQLite:dbname=db/auth.db", "",""]);
-
-    my @cmd = ( "./script/$app_prefix" . "_create.pl" ,
+    my $create_file = File::Spec->catfile(File::Spec->curdir(),
+                                          'script',
+                                          "${app_prefix}_create.pl");
+    my @cmd = ( "$create_file",
                  'model',
                  'Auth',
                  'DBIC::Schema',