$a = 2;
sub A { }
sub B { }
sub C { --$a }
$a = 2;
while ( C() ) {
A();
}
$a = 2;
while ( C() ) {
A();
}
continue {
B();
}
$a = 2;
sub A { }
sub B { }
sub C { --$a }
$a = 2;
while ( C() ) {
A();
}
$a = 2;
while ( C() ) {
A();
}
continue {
B();
}