Support one-parameter unpack(), which unpacks $_.
[perl.git] / os2 / perl2cmd.pl
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
19 foreach $file (<$idir/*>) {
20   next if $file =~ /\.exe/i;
21   $base = $file;
22   $base =~ s/\.$//;             # just in case...
23   $base =~ s|.*/||;
24   $file =~ s|/|\\|g ;
25   print "Processing $file => $dir\\$base.cmd\n";
26   system 'cmd.exe', '/c', "echo extproc perl -S>$dir\\$base.cmd";
27   system 'cmd.exe', '/c', "type $file >> $dir\\$base.cmd";
28 }
29