You're hitting an edge case. The optimization had a different situation in mind:

if( 1 && foo() ) {
   . . .
}
elsif( 0 || bar() ) {
   . . . 
}
[download]

This optimization is hardly unique to Perl. I believe both C and Java compilers will optimize away constants in exactly the same way.