From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Fri, 15 Mar 1996 07:43:05 +0000 (+0000)
Subject: Update OS/2 support
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=81ab40be6af2eaad41b1c6d974b757695e2f0b34;p=p5sagit%2Fp5-mst-13.2.git

Update OS/2 support
---

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