This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
OS/2 doesn't support inplace editing without backups
authorJan Dubois <jand@activestate.com>
Wed, 9 Dec 2009 23:55:09 +0000 (15:55 -0800)
committerJan Dubois <jand@activestate.com>
Wed, 9 Dec 2009 23:55:09 +0000 (15:55 -0800)
t/io/inplace.t

index ce09314..2ab5bf7 100644 (file)
@@ -37,7 +37,7 @@ SKIP:
 {
     # based on code, dosish and epoc systems can't do no-backup inplace
     # edits
-    $^O =~ /^(MSWin32|cygwin|uwin|dos|epoc)$/
+    $^O =~ /^(MSWin32|cygwin|uwin|dos|epoc|os2)$/
        and skip("Can't inplace edit without backups on $^O", 4);
     
     our @ifiles = ( tempfile(), tempfile(), tempfile() );