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:
parent
f1d448a1cf
commit
2e266d5942
@ -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
|
||||
|
||||
@ -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/";
|
||||
|
||||
|
||||
@ -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")
|
||||
{
|
||||
|
||||
@ -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");
|
||||
|
||||
|
||||
@ -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")
|
||||
{
|
||||
|
||||
@ -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");
|
||||
|
||||
@ -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");
|
||||
|
||||
@ -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")
|
||||
{
|
||||
|
||||
@ -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")
|
||||
{
|
||||
|
||||
@ -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")
|
||||
{
|
||||
|
||||
@ -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");
|
||||
|
||||
|
||||
@ -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");
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user