Commit | Line | Data |
---|---|---|
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 | ||
4 | use Config; | |
5 | ||
6 | $dir = shift; | |
7 | $dir =~ s|/|\\|g ; | |
8 | $nowarn = 1, $dir = shift if $dir eq '-n'; | |
9 | ||
10 | die <<EOU unless defined $dir and -d $dir; | |
11 | usage: $^X $0 [-n] directory-to-install | |
12 | -n do not check whether the directory is not on path | |
13 | EOU | |
14 | ||
15 | @path = split /;/, $ENV{PATH}; | |
16 | $idir = $Config{installbin}; | |
17 | $indir =~ s|\\|/|g ; | |
18 | ||
760ac839 LW |
19 | foreach $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 |