diff options
author | sakamoto <sakamoto@pkgsrc.org> | 2000-11-27 04:42:48 +0000 |
---|---|---|
committer | sakamoto <sakamoto@pkgsrc.org> | 2000-11-27 04:42:48 +0000 |
commit | 2bee6139ba0a08d7817d21514570630d5fe89d55 (patch) | |
tree | 3f712e33e453ce7daa3d2abcf4615c803396fb9c /pkgtools/pkgdep | |
parent | 55fe6e8780f4418bf3927a57cae53a9beeb0f855 (diff) | |
download | pkgsrc-2bee6139ba0a08d7817d21514570630d5fe89d55.tar.gz |
escape RE special chars in package names.
Diffstat (limited to 'pkgtools/pkgdep')
-rw-r--r-- | pkgtools/pkgdep/files/pkgdep.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/pkgtools/pkgdep/files/pkgdep.pl b/pkgtools/pkgdep/files/pkgdep.pl index 78adf2c1b8f..44ebd2171b0 100644 --- a/pkgtools/pkgdep/files/pkgdep.pl +++ b/pkgtools/pkgdep/files/pkgdep.pl @@ -1,5 +1,5 @@ #!/usr/bin/env perl -# $NetBSD: pkgdep.pl,v 1.1.1.1 1999/09/21 02:26:13 sakamoto Exp $ +# $NetBSD: pkgdep.pl,v 1.2 2000/11/27 04:42:48 sakamoto Exp $ require 'getopts.pl'; use strict; @@ -128,6 +128,7 @@ sub mkreqd { for (keys %deps) { my ($p) = $_; for (split(/ /, $deps{$p})) { + $_ =~ s/(\+)/\\\1/g; if (defined($reqd{$_})) { if (!($reqd{$_} =~ /$_/)) { $reqd{$_} .= " " . $p; |