Front page | perl.perl5.porters |
Postings from May 2003
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')) {
...