make make_patchnum.sh (more) portable

[p5sagit/p5-mst-13.2.git] / t / io / fs.t

diff --git a/t/io/fs.t b/t/io/fs.t
index 095239b..8c45c8d 100755 (executable)
--- a/t/io/fs.t
+++ b/t/io/fs.t
@@ -281,7 +281,7 @@ sub check_utime_result {
                is( $atime, 500000001,          'atime' );
                is( $mtime, 500000000 + $delta, 'mtime' );
            }
-           elsif ($^O eq 'beos') {
+           elsif ($^O eq 'beos' || $^O eq 'haiku') {
             SKIP: {
                    skip "atime not updated", 1;
                }
@@ -437,7 +437,7 @@ SKIP: {
 if ($^O eq 'VMS') {
     # must have delete access to rename a directory
     `set file $tmpdir.dir/protection=o:d`;
-    ok(rename('$tmpdir.dir', '$tmpdir1.dir'), "rename on directories") ||
+    ok(rename("$tmpdir.dir", "$tmpdir1.dir"), "rename on directories") ||
       print "# errno: $!\n";
 }
 else {