diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-03-15 07:43:05 +0000 |
|---|---|---|
| committer | Charles Bailey <bailey@genetics.upenn.edu> | 1996-03-15 07:43:05 +0000 |
| commit | 81ab40be6af2eaad41b1c6d974b757695e2f0b34 (patch) | |
| tree | 9c93883f1fe217276d32e71a7f6436eb56bed5cb | |
| parent | 8da795c62c26645b9d86cd8671cbb9c297445664 (diff) | |
| download | perl-81ab40be6af2eaad41b1c6d974b757695e2f0b34.tar.gz | |
Update OS/2 support
| -rw-r--r-- | os2/Makefile.SHs | 3 | ||||
| -rw-r--r-- | os2/README | 7 | ||||
| -rw-r--r-- | os2/perl2cmd.pl | 4 |
3 files changed, 8 insertions, 6 deletions
diff --git a/os2/Makefile.SHs b/os2/Makefile.SHs index a08a3f0da1..bc99fd113b 100644 --- a/os2/Makefile.SHs +++ b/os2/Makefile.SHs @@ -19,7 +19,8 @@ perl5.def: perl.linkexp echo DATA LOADONCALL NONSHARED MULTIPLE >>$@ echo EXPORTS >>$@ echo ' "ctermid"' >>$@ - echo ' "settmppath"' >>$@ + echo ' "Perl_OS2_init"' >>$@ + echo ' "OS2_Perl_data"' >>$@ !NO!SUBS! if [ ! -z "$myttyname" ] ; then diff --git a/os2/README b/os2/README index 7cac330dc3..cd00a1f603 100644 --- a/os2/README +++ b/os2/README @@ -84,7 +84,7 @@ on the build partition. b) when extraction perl5.*.tar.gz you need to extract perl5.*/Configure separately, since by default perl5.001m/configure may overwrite it; like this: - tar vzxf perl5.004.tar.gz perl5.004/Configure + tar vzxf perl5.004.tar.gz --case-sensitive perl5.004/Configure c) Necessary manual intervention when compiling on OS/2: @@ -212,13 +212,14 @@ cannot test it. OS/2 extensions ~~~~~~~~~~~~~~~ I include 3 extensions by Andread Kaiser, OS2::REXX, OS2::UPM, and OS2::FTP, -with minor changes needed to compile them by standard tools. I cannot +into my ftp directory, mirrored on CPAN. I made +some minor changes needed to compile them by standard tools. I cannot test UPM and FTP, so I will appreciate your feedback. The -R switch of older perl is deprecated. If you need to call a REXX code which needs access to variables, include the call into a REXX compartment created by - REXX_call {block}; + REXX_call {...block...}; Two new functions are supported by REXX code, REXX_eval 'string'; diff --git a/os2/perl2cmd.pl b/os2/perl2cmd.pl index 215554999a..aa1c353f13 100644 --- a/os2/perl2cmd.pl +++ b/os2/perl2cmd.pl @@ -22,7 +22,7 @@ foreach $file (<$idir/*.>) { $base =~ s|.*/||; $file =~ s|/|\\|g ; print "Processing $file => $dir\\$base.cmd\n"; - system "echo extproc perl -S > $dir\\$base.cmd"; - system "type $file >> $dir\\$base.cmd"; + system 'cmd.exe', '/c', "echo extproc perl -Sx > $dir\\$base.cmd"; + system 'cmd.exe', '/c', "type $file >> $dir\\$base.cmd"; } |