develooper Front page | perl.perl5.porters | Postings from December 2009

RE: [perl.git] branch blead, updated. v5.11.2-135-g13290fc

Thread Next
From:
Jan Dubois
Date:
December 9, 2009 15:29
Subject:
RE: [perl.git] branch blead, updated. v5.11.2-135-g13290fc
Message ID:
009401ca7927$652d6640$2f8832c0$@activestate.com
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,
-Jan


Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About