Backing out due to red on btek (Seamonkey). btek does not have File::Spec installed?

This commit is contained in:
mark%moxienet.com 2005-08-02 23:38:34 +00:00
Родитель 59f7223372
Коммит 87dddde8f4
1 изменённых файлов: 4 добавлений и 3 удалений

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

@ -80,7 +80,9 @@ my $jarDir = $chromeDir;
if (defined($::opt_j)) {
$jarDir = $::opt_j;
}
$jarDir = _moz_rel2abs($jarDir, 1);
if ($jarDir !~ /^\//) {
$jarDir = getcwd() . '/' . $jarDir;
}
my $verbose = 0;
if (defined($::opt_v)) {
@ -216,9 +218,8 @@ sub JarIt
{
my ($destPath, $jarPath, $jarfile, $args, $overrides) = @_;
my $oldDir = cwd();
my $jarchive = $jarPath . '/' . $jarfile . '.jar';
chdir("$destPath/$jarfile");
my $jarchive = File::Spec->abs2rel(
File::Spec->catfile($jarPath, $jarfile.'.jar'));
if ("$fileformat" eq "flat" || "$fileformat" eq "symlink") {
unlink($jarchive) if ( -e $jarchive);