Exiting given/when via next/last/redo

I'm puzzled by this warning:

    ~% perl -wE'LOOP: for (1..2) { when (1) { next LOOP } }'
    Exiting when via next at -e line 1.

Since given/when is an if-like construct, and there's no potential
confusion about where the flow of control is going, is a warning really
necessary? Also, this

    perl -wE'for (1..2) { when (1) { say; last } }'

doesn't warn, even though this

    perl -wE'sub foo { last } for (1..2) { say; foo } }'

does.

Ben

• Exiting given/when via next/last/redo by Ben Morrow