diff options
| author | Jens-Heiner Rechtien <hr@openoffice.org> | 2004-03-02 12:26:40 +0000 |
|---|---|---|
| committer | Jens-Heiner Rechtien <hr@openoffice.org> | 2004-03-02 12:26:40 +0000 |
| commit | afe4d010483919f2215aefecc299ccb82ddb4548 (patch) | |
| tree | 39387e5805d1cdf209aa356088882bfe9c2ca9fc /solenv | |
| parent | 1786c5531bab2230ba74d2f61feb5c9e97453ca6 (diff) | |
#i26040#,#i10000#: tag(): quote metacharacters in file name if used as regexp
Diffstat (limited to 'solenv')
| -rw-r--r-- | solenv/bin/modules/Cvs.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/solenv/bin/modules/Cvs.pm b/solenv/bin/modules/Cvs.pm index 28edcd409b13..2efc7c7d59da 100644 --- a/solenv/bin/modules/Cvs.pm +++ b/solenv/bin/modules/Cvs.pm @@ -2,9 +2,9 @@ # # $RCSfile: Cvs.pm,v $ # -# $Revision: 1.14 $ +# $Revision: 1.15 $ # -# last change: $Author: hr $ $Date: 2004-02-18 17:01:19 $ +# last change: $Author: hr $ $Date: 2004-03-02 13:26:40 $ # # The Contents of this file are made available subject to the terms of # either of the following licenses @@ -373,7 +373,7 @@ sub tag my $connectionfailure = 0; my $invalidfile = 0; foreach ( @{$response_ref} ) { - /^T $file/ && ++$tagged; + /^T \Q$file\E/ && ++$tagged; /NOT MOVING tag/ && ++$cant_move; /nothing known about/ && ++$invalidfile; /\[tag aborted\]: connect to/ && ++$connectionfailure; |