DEBSOURCES
Skip Quicknav
sources / libdevel-nytprof-perl / 6.12%2Bdfsg-1 / xt / test71-while.p
123456789101112131415161718
$a = 2; sub A { } sub B { } sub C { --$a } $a = 2; while ( C() ) { A(); } $a = 2; while ( C() ) { A(); } continue { B(); }