ossp-pkg/shiela/shiela.pl 1.6 -> 1.7
--- shiela.pl 2001/05/04 15:06:55 1.6
+++ shiela.pl 2001/05/11 19:53:45 1.7
@@ -1182,7 +1182,8 @@
my @newfiles = ();
foreach my $cvsfile (@cvsfiles) {
my $branch = 'HEAD';
- if ($cvsstat =~ m|===+\nFile:\s+$cvsfile.+?Sticky Tag:\s+(\S+)|s) {
+ my $cvsfile_quoted = quotemeta($cvsfile);
+ if ($cvsstat =~ m|===+\nFile:\s+${cvsfile_quoted}.+?Sticky Tag:\s+(\S+)|s) {
$branch = $1;
$branch = 'HEAD' if ($branch eq '(none)');
}
@@ -1746,7 +1747,8 @@
$e->{date} = $ID;
$e->{delta} = $Id;
$e->{diff} = '';
- $cvsdiff =~ s|\n<Diff\s+$Is>\n(.+?\n)</Diff>|$e->{diff} = $1, ''|se;
+ my $Is_quoted = quotemeta($Is);
+ $cvsdiff =~ s|\n<Diff\s+${Is_quoted}>\n(.+?\n)</Diff>|$e->{diff} = $1, ''|se;
$IN->{file}->{$Is} = $e;
$handle_min = $ID if ($ID ne '' and (not defined($handle_min) or $handle_min > $ID));
$handle_max = $ID if ($ID ne '' and (not defined($handle_max) or $handle_max < $ID));
|
|
