Chip noticed that the intended optionality of the 'IV' was
[p5sagit/p5-mst-13.2.git] / os2 / perl2cmd.pl
CommitLineData
82835e01 1# This will put installed perl files into some other location
2# Note that we cannot put hashbang to be extproc to make Configure work.
3
4use Config;
5
6$dir = shift;
7$dir =~ s|/|\\|g ;
8$nowarn = 1, $dir = shift if $dir eq '-n';
9
10die <<EOU unless defined $dir and -d $dir;
11usage: $^X $0 [-n] directory-to-install
12 -n do not check whether the directory is not on path
13EOU
14
15@path = split /;/, $ENV{PATH};
16$idir = $Config{installbin};
17$indir =~ s|\\|/|g ;
18
760ac839 19foreach $file (<$idir/*>) {
20 next if $file =~ /\.exe/i;
82835e01 21 $base = $file;
22 $base =~ s/\.$//; # just in case...
23 $base =~ s|.*/||;
24 $file =~ s|/|\\|g ;
25 print "Processing $file => $dir\\$base.cmd\n";
491527d0 26 system 'cmd.exe', '/c', "echo extproc perl -S>$dir\\$base.cmd";
81ab40be 27 system 'cmd.exe', '/c', "type $file >> $dir\\$base.cmd";
82835e01 28}
29