# Tim Maher

# This script, script.pl.PL, is called by the Make system, with the name of the
# script to be created, script.pl as its arg

# the contents of script.pl, except for its shebang line, is in script.0,
# which is inserted into script.pl by this script, script.pl.PL

# NOTE: In this version, the *.0 an *.PL files are in the top-level
# distribution directory, but the generated scripts appear under ./Scripts.
# Sun May  4 17:01:10 PDT 2003

use Config;

$pl_file = shift;

( $basename = $pl_file ) =~ s/\.plx$// or
	die "$0: Bad scriptname argument; no .plx ending!\n";
$file0="$basename.0";

open IN,  "<  $file0" or die "Can't open $file0: $!";
open OUT, "> Scripts/$pl_file" or die "Can't create $pl_file: $!";
chmod (0755, "Scripts/$pl_file");

print OUT $Config{startperl}, " -w\n", <IN>;