home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _efdee50de7b3e87cdaab604ce042db27 < prev    next >
Text File  |  2004-06-01  |  1KB  |  62 lines
  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;
  62.