develooper Front page | perl.perl5.porters | Postings from May 2003

Re: [perl #22372] [PATCH] sv_chop() broken

From:
Rafael Garcia-Suarez
Date:
May 31, 2003 02:10
Subject:
Re: [perl #22372] [PATCH] sv_chop() broken
Message ID:
20030531111056.3b013043.rgarciasuarez@free.fr
Enache Adrian wrote:
> +{
> +    my $el;
> +    format STDOUT =
> +ok ^<<<<<<<<<<<<<<~~ # sv_chop() naze
> +$el
> +.
> +    my %hash = (12 => 3);
> +    for $el (keys %hash) {
> +	write;
> +    }
> +}
> +
> +# 13..48: scary format testing from Merijn H. Brand

This outputs nothing for me.
Moreover you apparenly forgot to update the skip count a few lines
below :

>  if ($^O eq 'VMS' || $^O eq 'MSWin32' || $^O eq 'dos' || $^O eq 'MacOS' ||
>      ($^O eq 'os2' and not eval '$OS2::can_fork')) {
...



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