forwarded 390442 perl5-porters@perl.org
thanks
On Wed, Oct 18, 2006 at 03:06:01PM +0100, Nicholas Clark wrote:
>The test case can be reduced somewhat:
>
>#!/usr/bin/perl
>
>use strict;
>use warnings;
>
>my %H;
>
>my $v = "meh";
>$H{A} ||= do {
> foreach my $k (keys %H) {
> delete $H{$k};
> }
> $v;
>};
>__END__
>
>strict and warnings are optional.
>
>Having $v as a variable seems to be important, as is using $k to iterate.
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
