Bug 242037 mkdir in many perl scripts contains a decimal 775, not the correct octal specification of 0775

patch by ajschult@mindspring.com r=bsmedberg


git-svn-id: svn://10.0.0.236/trunk@155732 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
timeless%mozdev.org 2004-04-30 04:23:06 +00:00
parent f1d448a1cf
commit 2e266d5942
12 changed files with 19 additions and 19 deletions

View File

@ -93,7 +93,7 @@ sub ZipChrome()
# Make sure $inTargetPath exists
if(!(-e "$inTargetPath"))
{
mkdir("$inTargetPath", 775);
mkdir("$inTargetPath", 0775);
}
# Call CreateArchive() on locales, packages, and skins
@ -129,7 +129,7 @@ sub CreateArchive()
# Make sure $inDest exists
if(!(-e "$inDest"))
{
mkdir("$inDest", 775);
mkdir("$inDest", 0775);
}
# Check for extension, if none is passed, use .jar as default

View File

@ -31,7 +31,7 @@ sub packit {
#my $dos_stagedir = `cygpath -w $stagedir`;
#chomp ($dos_stagedir);
mkdir $stagedir, 775;
mkdir $stagedir, 0775;
TinderUtils::run_shell_command "cp -r $package_location/xpi $stagedir/windows-xpi";
TinderUtils::run_shell_command "cp $package_location/sea/*.exe $package_location/stub/*.exe $stagedir/";

View File

@ -540,7 +540,7 @@ sub VerifyComponents()
if($mComponent =~ /talkback/i)
{
print " place holder: $inStagePath\\$mComponent\n";
mkdir("$inStagePath\\$mComponent", 775);
mkdir("$inStagePath\\$mComponent", 0775);
}
elsif(-d "$inStagePath\\$mComponent")
{

View File

@ -113,7 +113,7 @@ if(-d "$DEPTH/stage")
# The destination cannot be a sub directory of the source.
# pkgcp.pl will get very unhappy.
mkdir("$DEPTH/stage", 775);
mkdir("$DEPTH/stage", 0775);
system("perl $cwdPackager/pkgcp.pl -s $cwdDist -d $DEPTH/stage -f $cwdPackager/packages-os2 -o unix -v");
system("perl $cwdPackager/xptlink.pl -s $cwdDist -d $DEPTH/stage -o unix -v");

View File

@ -674,14 +674,14 @@ sub CreateTmpStage()
# Copy the component's staging dir locally so that the chrome packages, locales, and skins dirs can be
# removed prior to creating the .xpi file.
mkdir("$gLocalTmpStage", 775);
mkdir("$gLocalTmpStage", 0775);
foreach $mComponent (@gComponentList)
{
print "\n Copying $mComponent:\n";
print " From: $inStagePath/$mComponent\n";
print " To: $gLocalTmpStage/$mComponent\n\n";
mkdir("$gLocalTmpStage/$mComponent", 775);
mkdir("$gLocalTmpStage/$mComponent", 0775);
# If it's not talkback then copy the component over to the local tmp stage.
# If it is, then skip the copy because there will be nothing at the source.
@ -729,7 +729,7 @@ sub VerifyComponents()
if($mComponent =~ /talkback/i)
{
print " place holder: $inStagePath/$mComponent\n";
mkdir("$inStagePath/$mComponent", 775);
mkdir("$inStagePath/$mComponent", 0775);
}
elsif(-d "$inStagePath/$mComponent")
{

View File

@ -53,9 +53,9 @@ sub StageProduct
StageUtils::CopyAdditionalPackage("$dirMozRoot/embedding/config/basebrowser-installer-win.pkg", $dirDistPackagesProductName);
StageUtils::CopyAdditionalPackage("$dirMozRoot/embedding/config/gre-installer-win.pkg", $dirDistPackagesProductName);
mkdir("$aDirStage", 775) if (!(-e "$aDirStage"));
mkdir("$aDirStage/$aProductName", 775) if (!(-e "$aDirStage/$aProductName"));
mkdir("$aDirStage/$aProductName/gre", 775) if (!(-e "$aDirStage/$aProductName/gre"));
mkdir("$aDirStage", 0775) if (!(-e "$aDirStage"));
mkdir("$aDirStage/$aProductName", 0775) if (!(-e "$aDirStage/$aProductName"));
mkdir("$aDirStage/$aProductName/gre", 0775) if (!(-e "$aDirStage/$aProductName/gre"));
# Call pkgcp.pl on each of the package list
system("perl \"$dirMozPackager/pkgcp.pl\" -s \"$aDirSrcDist\" -d \"$dirStageProductName\" -f \"$dirDistPackagesProductName/xpcom-win.pkg\" -o $aOsPkg -v");

View File

@ -55,9 +55,9 @@ sub StageProduct
StageUtils::CopyAdditionalPackage("$dirMozRoot/embedding/config/basebrowser-win-supp", $dirDistPackagesProductName);
StageUtils::CopyAdditionalPackage("$dirMozRoot/embedding/config/gre-win-supp", $dirDistPackagesProductName);
mkdir("$aDirStage", 775) if (!(-e "$aDirStage"));
mkdir("$aDirStage/$aProductName", 775) if (!(-e "$aDirStage/$aProductName"));
mkdir("$aDirStage/$aProductName/mfcembed", 775) if (!(-e "$aDirStage/$aProductName/mfcembed"));
mkdir("$aDirStage", 0775) if (!(-e "$aDirStage"));
mkdir("$aDirStage/$aProductName", 0775) if (!(-e "$aDirStage/$aProductName"));
mkdir("$aDirStage/$aProductName/mfcembed", 0775) if (!(-e "$aDirStage/$aProductName/mfcembed"));
# Call pkgcp.pl on each of the package list
system("perl \"$dirMozPackager/pkgcp.pl\" -s \"$aDirSrcDist\" -d \"$dirStageProductName\" -f \"$dirDistPackagesProductName/xpcom-win.pkg\" -o $aOsPkg -v");

View File

@ -576,7 +576,7 @@ sub VerifyComponents()
if($mComponent =~ /talkback/i)
{
print " place holder: $gDirStageProduct/$mComponent\n";
mkdir("$gDirStageProduct/$mComponent", 775);
mkdir("$gDirStageProduct/$mComponent", 0775);
}
elsif(-d "$gDirStageProduct/$mComponent")
{

View File

@ -609,7 +609,7 @@ sub VerifyComponents()
if($mComponent =~ /talkback/i)
{
print " place holder: $gDirStageProduct/$mComponent\n";
mkdir("$gDirStageProduct/$mComponent", 775);
mkdir("$gDirStageProduct/$mComponent", 0775);
}
elsif(-d "$gDirStageProduct/$mComponent")
{

View File

@ -647,7 +647,7 @@ sub VerifyComponents()
if($mComponent =~ /talkback/i)
{
print " place holder: $gDirStageProduct/$mComponent\n";
mkdir("$gDirStageProduct/$mComponent", 775);
mkdir("$gDirStageProduct/$mComponent", 0775);
}
elsif(-d "$gDirStageProduct/$mComponent")
{

View File

@ -105,7 +105,7 @@ if(-d "$DEPTH/stage")
# The destination cannot be a sub directory of the source.
# pkgcp.pl will get very unhappy.
mkdir("$DEPTH/stage", 775);
mkdir("$DEPTH/stage", 0775);
system("perl $cwdPackager/pkgcp.pl -s $cwdDist -d $DEPTH/stage -f $cwdPackager/packages-os2 -o unix -v");
system("perl $cwdPackager/xptlink.pl -s $cwdDist -d $DEPTH/stage -o unix -v");

View File

@ -89,7 +89,7 @@ if(-d "$DEPTH\\stage")
# The destination cannot be a sub directory of the source
# pkgcp.pl will get very unhappy
mkdir("$DEPTH\\stage", 775);
mkdir("$DEPTH\\stage", 0775);
system("perl $cwdPackager\\pkgcp.pl -s $cwdDistWin -d $DEPTH\\stage -f $cwdPackager\\packages-static-win -o dos -v");
chdir("$cwdPackager\\windows");