--- 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[;