diff options
| author | joey <joey> | 2002-05-23 01:37:24 +0000 |
|---|---|---|
| committer | joey <joey> | 2002-05-23 01:37:24 +0000 |
| commit | e5fd7eb1e142ccf2b2dcea5993168102219c5b9d (patch) | |
| tree | c0ada27135ea5d5b9478a8ef9282aa2e8d1e5e66 /Debian/Debhelper | |
| parent | 4f601f037fad476c5b3bbc8ad196048a755c9ac9 (diff) | |
r526: * Don't leak regex characters from -X when generating DH_EXCLUDE_FIND.
Diffstat (limited to 'Debian/Debhelper')
| -rw-r--r-- | Debian/Debhelper/Dh_Lib.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Debian/Debhelper/Dh_Lib.pm b/Debian/Debhelper/Dh_Lib.pm index b14afd1e..d1c67b53 100644 --- a/Debian/Debhelper/Dh_Lib.pm +++ b/Debian/Debhelper/Dh_Lib.pm @@ -52,7 +52,10 @@ sub init { if ($dh{EXCLUDE}) { $dh{EXCLUDE_FIND}=''; foreach (@{$dh{EXCLUDE}}) { - $dh{EXCLUDE_FIND}.="-regex ".escape_shell(".*$_.*")." -or "; + my $x=$_; + $x=escape_shell($x); + $x=~s/\./\\\\./g; + $dh{EXCLUDE_FIND}.="-regex .\\*$x.\\* -or "; } $dh{EXCLUDE_FIND}=~s/ -or $//; } |