<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl
# perlpath.pl
# This script gets run only from setup.sh in order to replace the 
# #!/usr/local/bin/perl line at the start of scripts with the real path to perl

$ppath = $ARGV[0];
if ($ARGV[1] eq "-") {
	@files = &lt;STDIN&gt;;
	chop(@files);
	}
else {
	# Get files from command line
	@files = @ARGV[1..$#ARGV];
	}

foreach $f (@files) {
	open(IN, $f);
	@lines = &lt;IN&gt;;
	close(IN);
	if ($lines[0] =~ /^#!\/\S*perl\S*(.*)/) {
		open(OUT, "&gt; $f");
		print OUT "#!$ppath$1\n";
		for($i=1; $i&lt;@lines; $i++) {
			print OUT $lines[$i];
			}
		close(OUT);
		}
	}

</pre></body></html>