cperl-mode についての質問です。

sub print_foo {
# print ではじまる関数名の関数を定義
}

　sub foo { # ←ここで、TAB を押すとインデントが狂うのは仕様ですか？
　}