in reply to Unable to reach branch - Dead code or defensive programming?

Maybe try $length = 0
poj

In Section Seekers of Perl Wisdom