This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Use the $Is_MacOS variable
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 15 Jan 2007 13:45:40 +0000 (13:45 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 15 Jan 2007 13:45:40 +0000 (13:45 +0000)
p4raw-id: //depot/perl@29825

t/lib/common.pl

index 8492f13..9deacbc 100644 (file)
@@ -23,7 +23,7 @@ my @w_files = () ;
 
 if (@ARGV)
   { print "ARGV = [@ARGV]\n" ;
-    if ($^O eq 'MacOS') {
+    if ($Is_MacOS) {
       @w_files = map { s#^#:lib:$pragma_name:#; $_ } @ARGV
     } else {
       @w_files = map { s#^#./lib/$pragma_name/#; $_ } @ARGV
@@ -97,7 +97,7 @@ for (@prgs){
     }
 
     # fix up some paths
-    if ($^O eq 'MacOS') {
+    if ($Is_MacOS) {
        $prog =~ s|require "./abc(d)?";|require ":abc$1";|g;
        $prog =~ s|"\."|":"|g;
     }
@@ -131,7 +131,7 @@ for (@prgs){
     $results =~ s/Scalars leaked: \d+\n//g;
 
     # fix up some paths
-    if ($^O eq 'MacOS') {
+    if ($Is_MacOS) {
        $results =~ s|:abc\.pm\b|abc.pm|g;
        $results =~ s|:abc(d)?\b|./abc$1|g;
     }