Update OS/2 support

diff --git a/os2/Makefile.SHs b/os2/Makefile.SHs
index a08a3f0..bc99fd1 100644 (file)
--- 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 7cac330..cd00a1f 100644 (file)
--- 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 2155549..aa1c353 100644 (file)
--- 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";
 }