想定通りに動かずループしてしまうのは何故?

質問

カレントディレクトリ以下に存在するすべてのファイルを列挙するスクリプトを作りました。
以下がソースです。(ちなみにこれを考えるのに一晩かかりました…恥ずかしいです)
再帰的にディレクトリを探査して、ファイルが見つかれば@dataに入れます。
また、ディレクトリが見つかれば@listに入れて、このリストが空でない限り
再帰的に処理します(するはずなんですが…)。
最後に@dataを出力して終了です。

#!/usr/bin/perl -w
use strict;
my (@list,@data);
main();
exit(0);

sub main {
　push @list,'.';
　rdir();
}
sub rdir(){
　if ($#list >= 0) {
　　my @dirlist;
　　my $d = shift @list;
　　opendir DIR,$d or die "$!\n";
　　　@dirlist = readdir DIR;
　　closedir DIR;
　　　shift @dirlist;
　　　shift @dirlist;
　　　foreach (@dirlist) {
　　　　my $dd = $_;
　　　　$dd = "$d/$dd";
　　　　if ( -d $dd ) {
　　　　　push @list, $dd;
　　　　}
　　　　elsif ( -f $dd ) {
　　　　　push @data,"$dd\n";
　　　　}
　　　}
　　rdir();
　}
　#else {
　　print @data;
　#}
}

これを実行するとrdir()の部分が延々とループされてしまいます
(無限ではなくほっておくと終わります)。
期待している動作なら、すべてのディレクトリを一回再帰的に探査したら
それでmain();がおわり、次のexit(0);で終わるはずなのですが、そうはなりません。
最後のコメントアウトしたelseを有効にすると期待通りの動作をします。
どうしてこうなるのかわかりません。
このelseは別になくてもいいのではないかと思うのですが。

回答No.2

bender

else は必要です。

else が無い場合、関数 rdir が呼ばれると、必ず一回 "print @data" を実行することがわかります。そこで、このプログラムを実行して「すべてのディレクトリを一回再帰的に探査」するとき、この関数が再帰的に呼ばれた回数だけ、この print 文が実行されなくてはならないことになります。
というわけで、このプログラムは、一回だけ「最後に@dataを出力」するプログラムではないことがわかります。

ところで、探索するディレクトリの一つが、例えば、親ディレクトリへの symbolic link である場合、このプログラムはとまらなくなってしまうと思います。

補足

回答ありがとうございます。
シンボリックとは思いもよりませんでした。確かにこのままではまずいですね。
指摘して下さりありがとうございます。
シンボリックリンクについてはファイルテスト演算子の-lを利用して判別することにしました。

ただ、やはりどうしてelseが必要なのかよくわかりません。
最後のprint @dataのところに処理がくる前にrdir()を呼んでいるのだから、
printはされずに次のrdirの中に処理が移るはずで、printがされるのは
@list(発見されたディレクトリのリスト)が空の状態、
つまり再起的に探索し終わったときになると思っているのですが、しかしそうはならないようです。
どうしてなのでしょうか？
すみません。