1 files changed, 3 insertions, 3 deletions
diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index 8c5e0c9476..e0f8a43b86 100644
--- a/utils/perldoc.PL
+++ b/utils/perldoc.PL
@@ -25,9 +25,9 @@ print "Extracting $file (with variable substitutions)\n";
 # You can use $Config{...} to use Configure variables.
 
 print OUT <<"!GROK!THIS!";
-$Config{'startperl'}
-    eval 'exec perl -S \$0 "\$@"'
-	if 0;
+$Config{startperl}
+    eval 'exec $Config{perlpath} -S \$0 \${1+"\$@"}'
+	if \$running_under_some_shell;
 
 \@pagers = ();
 push \@pagers, "$Config{'pager'}" if -x "$Config{'pager'}";