--- toast	2003/10/25 22:38:34	1.226
+++ toast	2003/10/25 22:43:34	1.227
@@ -1721,7 +1721,9 @@
 {
   my($srcdir, $rootdir, $helperdir, $cmd, $force) = @_;
   helpstub($helperdir, $cmd);
-  writescript(path($helperdir, "$cmd.helper"), "#!$^X\n# $genby\n", q[
+  my($perl) = $^X;
+  $perl = "/usr/bin/perl" unless $perl =~ m!/!;
+  writescript(path($helperdir, "$cmd.helper"), "#!$perl\n# $genby\n", q[
 $cmd = ], quote($cmd), q[;
 $srcdir = ], quote($srcdir), q[;
 $rootdir = ], quote($rootdir), q[;