From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 15 Jan 2007 13:45:40 +0000 (+0000)
Subject: Use the $Is_MacOS variable
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f4ae0982e14b2b6460091079b3ef36384825a1f5;hp=7702f0766f7a5815f7c5444edd9fa7ec7c739726;p=p5sagit%2Fp5-mst-13.2.git

Use the $Is_MacOS variable

p4raw-id: //depot/perl@29825
---

diff --git a/t/lib/common.pl b/t/lib/common.pl
index 8492f13..9deacbc 100644
--- a/t/lib/common.pl
+++ b/t/lib/common.pl
@@ -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;
     }