In roffitall, explicitly use perl to run rofftoc.

Previously roffitall invoked rofftoc as ./rofftoc (implying a shell script),
and in turn rofftoc used the "sh or perl" construction to cause sh to pass
itself to perl. This was a bit obfuscated at the best of times, and broke
completely when commit ff906f87ce151941 removed execute permission in 2010.

diff --git a/pod/roffitall b/pod/roffitall
index d504c47..22eae28 100644 (file)
--- a/pod/roffitall
+++ b/pod/roffitall
@@ -292,7 +292,7 @@ toroff=`
 
     #Now create the TOC
     echo "$me: parsing TOC"
-    ./rofftoc $tmp/PerlTOC.$ext.raw > $tmp/PerlTOC.tmp.man
+    perl rofftoc $tmp/PerlTOC.$ext.raw > $tmp/PerlTOC.tmp.man
     run="$cmd $tmp/PerlTOC.tmp.man >$tmp/PerlTOC.$ext"
     echo "$me: running $run"
     eval $run

diff --git a/pod/rofftoc b/pod/rofftoc
index a2d0e7b..341d30d 100644 (file)
--- a/pod/rofftoc
+++ b/pod/rofftoc
@@ -1,7 +1,3 @@
-# feed this into perl
-       eval 'exec perl -S $0 ${1+"$@"}'
-               if $running_under_some_shell;
-
 # Usage: rofftoc PerlTOC.xxx.raw
 #
 # Post-processes roffitall output. Called from roffitall to produce