--- shiela.pl 2001/05/12 07:24:16 1.8
+++ shiela.pl 2001/05/12 07:26:54 1.9
@@ -1403,7 +1403,7 @@
print STDERR "cvs import: Ignoring this operation - don't expect log messages!\n";
exit(0);
}
- open(CVSS, "$RT->{cvs} -f -l -Q -n log -r$It $Is|");
+ open(CVSS, "$RT->{cvs} -f -l -Q -n log -r$It '$Is'|");
$rcslog = $_ while (<CVSS>);
close(CVSS);
}
@@ -1519,7 +1519,7 @@
my $rcslog = '';
if ($Io eq 'A' or $Io eq 'M') {
if (not $RT->{useserver}) {
- open(CVSS, "$RT->{cvs} -f -l -Q -n log -r$Iv $Is|");
+ open(CVSS, "$RT->{cvs} -f -l -Q -n log -r$Iv '$Is'|");
$rcslog .= $_ while (<CVSS>);
close(CVSS);
}
@@ -1579,7 +1579,7 @@
"============================================================\n" .
"\$ cvs update -p -r$Iv $Is | uuencode $Is\n";
if (not $RT->{useserver}) {
- open(CVSS, "$RT->{cvs} -f -l -Q -n update -p -r$Iv $Is | uuencode $Is |");
+ open(CVSS, "$RT->{cvs} -f -l -Q -n update -p -r$Iv '$Is' | uuencode '$Is' |");
$cvsdiff .= $_ while (<CVSS>);
close(CVSS);
}
@@ -1602,7 +1602,7 @@
"============================================================\n" .
"\$ cvs update -p -r$Iv $Is\n";
if (not $RT->{useserver}) {
- open(CVSS, "$RT->{cvs} -f -l -Q -n update -p -r$Iv $Is|");
+ open(CVSS, "$RT->{cvs} -f -l -Q -n update -p -r$Iv '$Is'|");
$cvsdiff .= $_ while (<CVSS>);
close(CVSS);
}
@@ -1629,8 +1629,8 @@
"\$ cvs update -p -r$Iv $Is >$Is.new\n" .
"\$ diff -u $Is.old $Is.new\n";
if (not $RT->{useserver}) {
- system("$RT->{cvs} -f -l -Q -n update -p -r$IV $Is | uuencode $Is >$Is.old");
- system("$RT->{cvs} -f -l -Q -n update -p -r$Iv $Is | uuencode $Is >$Is.new");
+ system("$RT->{cvs} -f -l -Q -n update -p -r$IV '$Is' | uuencode '$Is' >$Is.old");
+ system("$RT->{cvs} -f -l -Q -n update -p -r$Iv '$Is' | uuencode '$Is' >$Is.new");
}
else {
my $cvs = new CVS ($RT->{cvs}, $RT->{cvsroot});
@@ -1659,7 +1659,7 @@
# file was modified, so we show the changed contents only
my $d = '';
if (not $RT->{useserver}) {
- open(FP, "$RT->{cvs} -f -l -Q -n diff -u -r$IV -r$Iv $Is|");
+ open(FP, "$RT->{cvs} -f -l -Q -n diff -u -r$IV -r$Iv '$Is'|");
$d .= $_ while (<FP>);
close(FP);
}
@@ -1675,7 +1675,7 @@
my $Is_quoted = quotemeta($Is);
$d =~ s|^Index:.+?\ndiff\s+.*?\n||s;
$d =~ s|^(---\s+)${Is_quoted}(\s+)|$1$cvsdir/$Is$2|m;
- $d =~ s|^(\+\+\+\s+)$Is(\s+)|$1$cvsdir/$Is$2|m;
+ $d =~ s|^(\+\+\+\s+)${Is_quoted}(\s+)|$1$cvsdir/$Is$2|m;
$cvsdiff .=
"<Diff $cvsdir/$Is>\n" .
"Index: $cvsdir/$Is\n" .
|
