perl - Perl グロブの奇妙な動作

Question

私はperlコードを持っています:

if (glob("$data_dir/*$archivefrom*")) {
    my $command1 = "zip -r -T -m $backup_dir/$archivefrom.zip $data_dir/*$archivefrom*";

    my $err_cmd1 =system("$command1");
    if ($err_cmd1 != 0){print "Error $command1\n";exit 1;}
}

場合によっては true が返されることがありますが、zip は何にも一致しません。なぜそうなるのでしょうか? その間、ファイルを削除する並行プロセスはありません。グロブがファイルのzipアーカイブ一致とは異なるものを返すだけで、空である必要がありますが、空でない結果を返します。