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

This commit is contained in:
nrthomas%gmail.com 2007-12-18 17:47:03 +00:00
Родитель deba411341
Коммит 7738e4c8d1
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;