--- ../vanilla/tilesAtHome/tilesGen.pl	2008-05-08 13:09:34.875000000 +0200
+++ tilesGen.pl	2008-05-08 13:12:21.671875000 +0200
@@ -440,8 +439,7 @@

     my ($runNumber) = @_;

-    my $CompressScript = "perl $Bin/compress.pl $runNumber $progressJobs";
-    my $retval = system($CompressScript);
+    my $retval = system($^X, $Bin . '/compress.pl', $runNumber, $progressJobs);
     return $retval;
 }

@@ -452,8 +450,7 @@

     my ($runNumber) = @_;

-    my $UploadScript = "perl $Bin/upload.pl $runNumber $progressJobs";
-    my $retval = system($UploadScript);
+    my $retval = system($^X, $Bin . '/upload.pl', $runNumber, $progressJobs);
     return $retval;
 }

@@ -875,7 +872,7 @@
             }
             elsif ($preprocessor eq "close-areas")
             {
-                my $Cmd = sprintf("%s perl close-areas.pl $X $Y $Zoom < %s > %s",
+                my $Cmd = sprintf("%s '$^X' close-areas.pl $X $Y $Zoom < %s > %s",
                         $Config{Niceness},
                         "$inputFile",
                         "$outputFile");
@@ -884,7 +881,7 @@
             }
             elsif ($preprocessor eq "attribution")
             {
-                my $Cmd = sprintf("%s perl attribution.pl < %s > %s",
+                my $Cmd = sprintf("%s '$^X' attribution.pl < %s > %s",
                         $Config{Niceness},
                         "$inputFile",
                         "$outputFile");
@@ -893,7 +890,7 @@
             }
             elsif ($preprocessor eq "mercator")
             {
-                my $Cmd = sprintf("%s perl mercatorize.pl %s > %s",
+                my $Cmd = sprintf("%s '$^X' mercatorize.pl %s > %s",
                         $Config{Niceness},
                         "$inputFile",
                         "$outputFile");
@@ -1238,7 +1235,7 @@
     elsif($Config{Osmarender} eq "orp")
     {
         chdir "orp";
-        my $Cmd = sprintf("%s perl orp.pl -r %s -o %s",
+        my $Cmd = sprintf("%s '$^X' orp.pl -r %s -o %s",
           $Config{"Niceness"},
           $MapFeatures,
           $TSVG);
@@ -1269,7 +1266,7 @@
 #-----------------------------------------------------------------------------
     if (!$NoBezier)
     {   # do bezier curve hinting
-        my $Cmd = sprintf("%s perl ./lines2curves.pl %s > %s",
+        my $Cmd = sprintf("%s '$^X' ./lines2curves.pl %s > %s",
           $Config{Niceness},
           $TSVG,
           $SVG);
@@ -1684,7 +1684,7 @@
     elsif ($dirent ne $de)
     {
         statusMessage("tilesGen.pl has changed, re-start new version", $currentSubTask, $progressJobs, $progressPercent, 1);
-        exec "perl", $0, "loop", "reexec",
+        exec $^X, $0, "loop", "reexec",
             "progressJobs=$progressJobs",
             "idleSeconds=" . getIdle(1),
             "idleFor=" . getIdle(0),
