diff options
| author | atatat <atatat@pkgsrc.org> | 2004-05-10 00:19:43 +0000 |
|---|---|---|
| committer | atatat <atatat@pkgsrc.org> | 2004-05-10 00:19:43 +0000 |
| commit | c206ac21df4dda260fd598d5a333afce34666fa9 (patch) | |
| tree | 2b266f76d1a6a189de4abc1a4fdc66fe50b883cc /pkgtools | |
| parent | d281373e2e64ea4c0972ed37cd4a425220fb758c (diff) | |
| download | pkgsrc-c206ac21df4dda260fd598d5a333afce34666fa9.tar.gz | |
The existence of the kde-i18n-sr@Latn pkg makes it clear that _pkg
also needs escapement treatment so that the eval doesn't barf. Since
_ver is the only thing left, do that one, too. This makes 3.74.
Diffstat (limited to 'pkgtools')
| -rw-r--r-- | pkgtools/pkglint/Makefile | 4 | ||||
| -rwxr-xr-x | pkgtools/pkglint/files/lintpkgsrc.pl | 8 |
2 files changed, 7 insertions, 5 deletions
diff --git a/pkgtools/pkglint/Makefile b/pkgtools/pkglint/Makefile index 50a807ac780..86c3dba5e1d 100644 --- a/pkgtools/pkglint/Makefile +++ b/pkgtools/pkglint/Makefile @@ -1,7 +1,7 @@ -# $NetBSD: Makefile,v 1.186 2004/05/09 05:13:24 jschauma Exp $ +# $NetBSD: Makefile,v 1.187 2004/05/10 00:19:43 atatat Exp $ # -DISTNAME= pkglint-3.73 +DISTNAME= pkglint-3.74 CATEGORIES= pkgtools devel MASTER_SITES= # empty DISTFILES= # empty diff --git a/pkgtools/pkglint/files/lintpkgsrc.pl b/pkgtools/pkglint/files/lintpkgsrc.pl index e6b49e0f0c5..f5bac20295b 100755 --- a/pkgtools/pkglint/files/lintpkgsrc.pl +++ b/pkgtools/pkglint/files/lintpkgsrc.pl @@ -1,6 +1,6 @@ #!@PERL@ -# $NetBSD: lintpkgsrc.pl,v 1.88 2004/01/14 23:18:46 wiz Exp $ +# $NetBSD: lintpkgsrc.pl,v 1.89 2004/05/10 00:19:43 atatat Exp $ # Written by David Brownlee <abs@netbsd.org>. # @@ -1564,8 +1564,10 @@ sub store { my $self = shift; my $data; - print("\$pkgver = \$pkglist->add(\"$self->{_pkg}\", \"$self->{_ver}\"); "); - print("__pkgcount(1);\n"); + ($data = $self->{_pkg}) =~ s/([\\\$\@\%\"])/\\$1/g; + print("\$pkgver = \$pkglist->add(\"$data\", \""); + ($data = $self->{_ver}) =~ s/([\\\$\@\%\"])/\\$1/g; + print("$data\"); __pkgcount(1);\n"); foreach ($self->vars) { ($data = $self->{$_}) =~ s/([\\\$\@\%\"])/\\$1/g; |