Front page | perl.perl5.porters |
Postings from December 2009
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