Change 29825: Use the $Is_MacOS variable

[Rafael Garcia-Suarez]

Change 29825 by [EMAIL PROTECTED] on 2007/01/15 13:45:40

        Use the $Is_MacOS variable

Affected files ...

... //depot/perl/t/lib/common.pl#7 edit

Differences ...

==== //depot/perl/t/lib/common.pl#7 (text) ====
Index: perl/t/lib/common.pl
--- perl/t/lib/common.pl#6~29824~       2007-01-15 05:44:39.000000000 -0800
+++ perl/t/lib/common.pl        2007-01-15 05:45:40.000000000 -0800
@@ -23,7 +23,7 @@
 
 if (@ARGV)
   { print "ARGV = [EMAIL PROTECTED]" ;
-    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 @@
     }
 
     # 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 @@
     $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;
     }
End of Patch.