Bug 408811, fix perl warning on some unshipped files, r=rhelmer

This commit is contained in:
nrthomas@gmail.com 2007-12-18 09:47:03 -08:00
Родитель 6f07cbb8ca
Коммит 0b8a44a61e
1 изменённых файлов: 3 добавлений и 2 удалений

Просмотреть файл

@ -545,8 +545,9 @@ sub TrimCallback {
# Don't ship xforms in the release area # Don't ship xforms in the release area
if (($dirent =~ /xforms\.xpi/) || if (($dirent =~ /xforms\.xpi/) ||
# ZIP files are not shipped; neither are en-US lang packs # ZIP files are not shipped; neither are en-US lang packs
($dirent =~ /\.zip$/) || ($dirent =~ /\.zip$/) || ($dirent =~ /en-US\.xpi$/) ||
($dirent =~ /en-US\.xpi$/)) { # nor the BuildID files, nor the 2.0.0.x signing log
($dirent =~ /_info.txt$/) || ($dirent =~ /win32_signing_rc\d+\.log/) ) {
unlink($dirent) || die "Could not unlink $dirent: $!"; unlink($dirent) || die "Could not unlink $dirent: $!";
$this->Log(msg => "Unlinked $dirent"); $this->Log(msg => "Unlinked $dirent");
return; return;