sub gendump ($@) {
my $class=shift;
- "#!/usr/bin/perl",
+ my $thisperl = eval q{use Config; $Config{perlpath}};
+ error($@) if $@;
+
+ "#!$thisperl",
"#",
(map { "# $_" } @_),
"use IkiWiki::Setup::Standard {",
- IkiWiki::Setup::commented_dump(\&dumpline),
+ IkiWiki::Setup::commented_dump(\&dumpline, "\t"),
"}"
}