On Tue, 08 Dec 2009, Rafael Garcia-Suarez wrote: > > In perl.git, the branch blead has been updated > > <http://perl5.git.perl.org/perl.git/commitdiff/13290fcd82823e130109fca5199c99fb886e29eb?hp=958e6d4b516d826d7139a8ead > 2b1054c5f8b9eda> > > - Log ----------------------------------------------------------------- > commit 13290fcd82823e130109fca5199c99fb886e29eb > Author: Tony Cook <tony@develop-help.com> > Date: Tue Dec 8 12:48:59 2009 +0100 > > [perl #70802] -i'*' refuses to work > > Add regression tests > (the bug was fixed by commit c9930541bfa04399c3b648e83c9b750cee1154fb) > ----------------------------------------------------------------------- > > Summary of changes: > t/io/inplace.t | 54 +++++++++++++++++++++++++++++++++++++++++++++++++++++- > 1 files changed, 53 insertions(+), 1 deletions(-) > > diff --git a/t/io/inplace.t b/t/io/inplace.t > index a9664dc..ce09314 100644 > --- a/t/io/inplace.t > +++ b/t/io/inplace.t > @@ -4,7 +4,7 @@ require './test.pl'; > > $^I = $^O eq 'VMS' ? '_bak' : '.bak'; > > -plan( tests => 2 ); > +plan( tests => 6 ); > > my @tfiles = (tempfile(), tempfile(), tempfile()); > my @tfiles_bak = map "$_$^I", @tfiles; > @@ -33,3 +33,55 @@ is ( runperl( prog => 'print<>;', args => \@tfiles_bak ), > "foo\nfoo\nfoo\n", > "backup file contents stay the same" ); > > +SKIP: > +{ > + # based on code, dosish and epoc systems can't do no-backup inplace > + # edits > + $^O =~ /^(MSWin32|cygwin|uwin|dos|epoc)$/ > + and skip("Can't inplace edit without backups on $^O", 4); I suspect OS/2 belongs in that list as well. Cheers, -JanThread Next