Use $^X whenever we invoke a Perl script.

Make sure to set $VegGuide::Build::IsInstalling in sync script for benefit of VegGuide::Config.
VegGuide · Feb 12, 2012 · c41c72e · c41c72e
1 parent 5effe13
commit c41c72e
Show file tree

Hide file tree

Showing 5 changed files with 6 additions and 4 deletions.
diff --git a/script/migrations/1/00-price-ranges b/script/migrations/1/00-price-ranges
@@ -17,5 +17,5 @@ $dbh->do( 'UPDATE Vendor SET price_range_id = 3 WHERE price_range_id IN ( 4, 5 )
 
 $dbh->do( 'DELETE FROM PriceRange' );
 
-system( 'script/vegguide_sync_db.pl', '--data' )
+system( $^X, 'script/vegguide_sync_db.pl', '--data' )
     and die $!;
diff --git a/script/migrations/1/01-locales b/script/migrations/1/01-locales
@@ -8,7 +8,7 @@ use lib "$FindBin::Bin/../../../lib";
 
 use VegGuide::Schema;
 
-system( 'script/vegguide_sync_db.pl', )
+system( $^X, 'script/vegguide_sync_db.pl', )
     and die $!;
 
 my $dbh = VegGuide::Schema->Connect()->driver()->handle();

diff --git a/script/migrations/1/03-ratings b/script/migrations/1/03-ratings
@@ -9,7 +9,7 @@ use lib "$FindBin::Bin/../../../lib";
 use VegGuide::Schema;
 
 
-system( 'script/vegguide_sync_db.pl' )
+system( $^X, 'script/vegguide_sync_db.pl' )
     and die $!;
 
 my $dbh = VegGuide::Schema->Connect()->driver()->handle();

diff --git a/script/vegguide_run_migrations.pl b/script/vegguide_run_migrations.pl
@@ -50,7 +50,7 @@ sub run_scripts {
     print "Running migrations for version $ver\n";
     for my $script ( sort grep { -f && -x } glob "$Dir/migrations/$ver/*" ) {
         print "  - ", basename($script), "\n";
-        system($script )
+        system( $^X, $script )
             and die "Cannot run $script: $!";
     }
 }
diff --git a/script/vegguide_sync_db.pl b/script/vegguide_sync_db.pl
@@ -7,6 +7,8 @@
 
 use lib "$FindBin::Bin/../lib";
 
+BEGIN { $VegGuide::Build::IsInstalling = 1 }
+
 use VegGuide::Config;
 use VegGuide::Schema;