Bommels05/Mozilla
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Only escape $rcsfile when invoking shell otherwise standard perl functions fail.

Browse Source 
Bug #258668


git-svn-id: svn://10.0.0.236/trunk@162299 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
cls%seawood.org
2004-09-14 09:10:07 +00:00
parent 1da46e1b5d
commit 22ed97ac25
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
mozilla/webtools/bonsai/dolog.pl
View File

@@ -192,11 +192,12 @@ sub process_cvs_info {
for $i (@changed_files, "BEATME.NOW", @added_files) {
if ($i eq "BEATME.NOW") { $stat = 'A'; }
if ($i eq $fn) {
$rcsfile = shell_escape("$envcvsroot/$repository/$fn,v");
$rcsfile = "$envcvsroot/$repository/$fn,v";
if (! -r $rcsfile) {
$rcsfile = shell_escape("$envcvsroot/$repository/Attic/$fn,v");
$rcsfile = "$envcvsroot/$repository/Attic/$fn,v";
}
open(LOG, "$rlogcommand -N -r$rev $rcsfile |")
$rlogcmd = "$rlogcommand -N -r$rev " . shell_escape($rcsfile);
open(LOG, "$rlogcmd |")
|| print STDERR "dolog.pl: Couldn't run rlog\n";
while (<LOG>) {
if (/^date:.* author: ([^;]*);.*/) {