RT#69616: regexp SVs lose regexpness in assignment

[p5sagit/p5-mst-13.2.git] / t / op / stat.t

diff --git a/t/op/stat.t b/t/op/stat.t
index a225de4..5167655 100644 (file)
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -17,7 +17,6 @@ $Is_Amiga   = $^O eq 'amigaos';
 $Is_Cygwin  = $^O eq 'cygwin';
 $Is_Darwin  = $^O eq 'darwin';
 $Is_Dos     = $^O eq 'dos';
-$Is_MacOS   = $^O eq 'MacOS';
 $Is_MPE     = $^O eq 'mpeix';
 $Is_MSWin32 = $^O eq 'MSWin32';
 $Is_NetWare = $^O eq 'NetWare';
@@ -64,7 +63,7 @@ SKIP: {
 
 SKIP: {
   skip "mtime and ctime not reliable", 2
-    if $Is_MSWin32 or $Is_NetWare or $Is_Cygwin or $Is_Dos or $Is_MacOS or $Is_Darwin;
+    if $Is_MSWin32 or $Is_NetWare or $Is_Cygwin or $Is_Dos or $Is_Darwin;
 
   ok( $mtime,           'mtime' );
   is( $mtime, $ctime,   'mtime == ctime' );
@@ -188,7 +187,7 @@ ok(-w $tmpfile,     '   -w');
 
 SKIP: {
     skip "-x simply determines if a file ends in an executable suffix", 1
-      if $Is_Dosish || $Is_MacOS;
+      if $Is_Dosish;
 
     ok(-x $tmpfile,     '   -x');
 }
@@ -496,8 +495,11 @@ SKIP: {
     ok(-d DIR, "-d on a dirhandle works");
 
     # And now for the ambigious bareword case
-    ok(open(DIR, "TEST"), 'Can open "TEST" dir')
-       || diag "Can't open 'TEST':  $!";
+    {
+       no warnings 'deprecated';
+       ok(open(DIR, "TEST"), 'Can open "TEST" dir')
+           || diag "Can't open 'TEST':  $!";
+    }
     my $size = (stat(DIR))[7];
     ok(defined $size, "stat() on bareword works");
     is($size, -s "TEST", "size returned by stat of bareword is for the file");
@@ -526,8 +528,11 @@ SKIP: {
         ok(-d -r *DIR{IO} , "chained -x's on *DIR{IO}");
 
        # And now for the ambigious bareword case
-       ok(open(DIR, "TEST"), 'Can open "TEST" dir')
-           || diag "Can't open 'TEST':  $!";
+       {
+           no warnings 'deprecated';
+           ok(open(DIR, "TEST"), 'Can open "TEST" dir')
+               || diag "Can't open 'TEST':  $!";
+       }
        my $size = (stat(*DIR{IO}))[7];
        ok(defined $size, "stat() on *THINGY{IO} works");
        is($size, -s "TEST",