[pkgsrc/trunk]: pkgsrc/pkgtools/pkglint The existence of the kde-i18n-sr@Latn...

[atatat <atatat%pkgsrc.org@localhost>]

details:   https://anonhg.NetBSD.org/pkgsrc/rev/921ddc216d83
branches:  trunk
changeset: 475097:921ddc216d83
user:      atatat <atatat%pkgsrc.org@localhost>
date:      Mon May 10 00:19:43 2004 +0000

description:
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:

 pkgtools/pkglint/Makefile            |  4 ++--
 pkgtools/pkglint/files/lintpkgsrc.pl |  8 +++++---
 2 files changed, 7 insertions(+), 5 deletions(-)

diffs (37 lines):

diff -r 56f74ff9ef8b -r 921ddc216d83 pkgtools/pkglint/Makefile
--- a/pkgtools/pkglint/Makefile Mon May 10 00:18:43 2004 +0000
+++ b/pkgtools/pkglint/Makefile Mon May 10 00:19:43 2004 +0000
@@ -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 -r 56f74ff9ef8b -r 921ddc216d83 pkgtools/pkglint/files/lintpkgsrc.pl
--- a/pkgtools/pkglint/files/lintpkgsrc.pl      Mon May 10 00:18:43 2004 +0000
+++ b/pkgtools/pkglint/files/lintpkgsrc.pl      Mon May 10 00:19:43 2004 +0000
@@ -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@localhost>.
 #
@@ -1564,8 +1564,10 @@
     {
     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;