Commit | Line | Data |
---|---|---|
86530b38 AT |
1 | sub OS2_massage { # Need to put before BEGIN |
2 | if (@ARGV) { | |
3 | die <<EOD; | |
4 | ||
5 | Please start me as one of | |
6 | perl $0 x | |
7 | perl $0 open32 | |
8 | perl $0 pm | |
9 | EOD | |
10 | } | |
11 | if (not defined $win_arch) { | |
12 | $win_arch = 'pm'; | |
13 | print STDERR <<EOP; | |
14 | ||
15 | No Window architecture specified, building for PM. | |
16 | ||
17 | Please start me as one of | |
18 | perl $0 x | |
19 | perl $0 open32 | |
20 | perl $0 pm | |
21 | if you want to specify architecture explicitely. | |
22 | ||
23 | EOP | |
24 | } | |
25 | if ($win_arch ne 'x' and not -r 'pTk/mTk/open32/tkWinOS2.c' ) { | |
26 | print <<EOD; | |
27 | ||
28 | Cannot find pTk/mTk/open32/tkWinOS2.c, trying to find Tk-OS2src nearby... | |
29 | ||
30 | EOD | |
31 | my @zips = <../Tk-OS2src-*/perltk_os2_common.zip>; | |
32 | ||
33 | die <<EOD unless @zips; | |
34 | ||
35 | Cannot find ../Tk-OS2src-*/perltk_os2_common.zip, did you read README.os2? | |
36 | ||
37 | EOD | |
38 | print 'Extracting OS/2-related files...\nunzip', $zips[-1], "\n"; | |
39 | system 'unzip', $zips[-1] and die "Unzip: $!"; | |
40 | print "Extracted...\n"; | |
41 | } | |
42 | if ($win_arch eq 'pm' and not -r 'pTk/mTk/os2/tkOS2Int.h') { | |
43 | print <<EOD unless @zips; | |
44 | ||
45 | Cannot find pTk/mTk/os2/tkOS2Int.h, trying to find Tk-OS2src nearby... | |
46 | ||
47 | EOD | |
48 | my @zips = <../Tk-OS2src-*/perltk_os2_pm.zip>; | |
49 | ||
50 | die <<EOD unless @zips; | |
51 | ||
52 | Cannot find ../Tk-OS2src-*/perltk_os2_pm.zip, did you read README.os2? | |
53 | ||
54 | EOD | |
55 | print 'Extracting OS/2-related files...\nunzip', $zips[-1], "\n"; | |
56 | system 'unzip', $zips[-1] and die "Unzip: $!"; | |
57 | } | |
58 | $test_perl = 'perl__.exe' if $win_arch ne 'x'; | |
59 | } | |
60 | ||
61 | 1; |