Re: [MacPerl] $^O and perlport

[Chris Nandor <pudge@pobox.com>]

At 17.28 -0500 1999.03.31, Milivoj Ivkovic wrote:
>>> While perlport is a good reference, it is not very complete in respect to
>>> $^O values.  Perhaps it could be, though.
>>
>
>After discovering perlport, I couldn't resist compiling a little html table of the $^O values I found there, instead of going to bed...
>
>I put it on <http://alma.ch/perl/perloses.htm>.

Cool.  I think something like this is needed.

Note that I did confirm that in the Darwin sources Apple released, the perl 
sources they had there do expect "rhapsody" as the value of $^O.  Partial diff between perl5.005_02 and Darwin source below.  I suppose the porter did not use $^O because he didn't know about it, but $^O is always the same as $Config{osname}.

*** Bird:src:Pudge:pudgeprogs:perl:perlget:perl5.005_02:installperl	Fri Jul 24 00:00:24 1998
--- Bourque:Desktop Folder:Tabs:Down :perl:perl:installperl	Tue Mar 16 17:31:34 1999
***************
*** 107,112 ****
--- 109,116 ----
  my $d_dosuid = $Config{d_dosuid};
  my $binexp = $Config{binexp};
  
+ my $osname = $Config{osname};
+ 
  if ($Is_VMS) {  # Hang in there until File::Spec hits the big time
      foreach ( \$installbin,     \$installscript,  \$installprivlib,
                \$installarchlib, \$installsitelib, \$installsitearch,
***************
*** 501,506 ****
--- 537,560 ----
      $packlist->{$to} = { type => 'file' };
  }
  
+ sub strip
+ {
+     my($file) = @_;
+ 
+     print STDERR "  strip $file\n";
+     system("strip", "$file");
+ }
+ 
+ sub striplib
+ {
+     my($file) = @_;
+ 
+     if ($osname eq "rhapsody") {
+        print STDERR "  strip -S $file\n";
+        system("strip", "-S", "$file")
+     }
+ }
+ 
  sub samepath {
      my($p1, $p2) = @_;
  

-- 
Chris Nandor          mailto:pudge@pobox.com         http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10  1FF77F13 8180B6B6'])

===== Want to unsubscribe from this list?
===== Send mail with body "unsubscribe" to macperl-request@macperl.org