Index: ossp-pkg/shiela/ChangeLog
RCS File: /v/ossp/cvs/ossp-pkg/shiela/ChangeLog,v
rcsdiff -q -kk '-r1.4' '-r1.5' -u '/v/ossp/cvs/ossp-pkg/shiela/ChangeLog,v' 2>/dev/null
--- ChangeLog	2001/05/04 13:33:53	1.4
+++ ChangeLog	2001/05/11 19:53:45	1.5
@@ -11,6 +11,9 @@
 
   Changes between 0.9.1 and 0.9.2 (10-Feb-2001 to 04-May-2001):
 
+   *) Fixed meta character handling in regex matchings.
+      [Ralf S. Engelschall]
+
    *) Make sure shiela accepts CVS 1.11 and newer, too.
       [Ralf S. Engelschall]
 
Index: ossp-pkg/shiela/shiela.pl
RCS File: /v/ossp/cvs/ossp-pkg/shiela/shiela.pl,v
rcsdiff -q -kk '-r1.6' '-r1.7' -u '/v/ossp/cvs/ossp-pkg/shiela/shiela.pl,v' 2>/dev/null
--- 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));