[pkgsrc/trunk]: pkgsrc/mk/plist In AWK string literals, backslashes must be d...

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

details:   https://anonhg.NetBSD.org/pkgsrc/rev/dbda54bd889e
branches:  trunk
changeset: 513643:dbda54bd889e
user:      rillig <rillig%pkgsrc.org@localhost>
date:      Thu Jun 01 06:12:48 2006 +0000

description:
In AWK string literals, backslashes must be doubled. Otherwise they are
simply discarded.

diffstat:

 mk/plist/plist-info.awk |  8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)

diffs (36 lines):

diff -r 4d2a17011a6b -r dbda54bd889e mk/plist/plist-info.awk
--- a/mk/plist/plist-info.awk   Thu Jun 01 00:43:47 2006 +0000
+++ b/mk/plist/plist-info.awk   Thu Jun 01 06:12:48 2006 +0000
@@ -1,4 +1,4 @@
-# $NetBSD: plist-info.awk,v 1.13 2006/05/29 20:01:39 jlam Exp $
+# $NetBSD: plist-info.awk,v 1.14 2006/06/01 06:12:48 rillig Exp $
 #
 # Copyright (c) 2006 The NetBSD Foundation, Inc.
 # All rights reserved.
@@ -74,7 +74,7 @@
 ### Canonicalize info page entries by converting ${PKGINFODIR}/ to info/.
 ###
 /^[^@]/ && ($0 !~ "^" IGNORE_INFO_REGEXP "/") && \
-($0 ~ "^" PKGINFODIR "\/[^\/]+(\.info)?(-[0-9]+)?(\.gz)?$") {
+($0 ~ "^" PKGINFODIR "\/[^\/]+(\\.info)?(-[0-9]+)?(\\.gz)?$") {
        sub("^" PKGINFODIR "/", "info/")
 }
 ($0 !~ "^@dirrm " IGNORE_INFO_REGEXP "$") && \
@@ -87,7 +87,7 @@
 ###
 /^[^@]/ && ($0 !~ "^" IGNORE_INFO_REGEXP "/") && \
 /^([^\/]*\/)*(info\/[^\/]+(\.info)?|[^\/]+\.info)(-[0-9]+)?\.gz$/ {
-       sub("\.gz$", "")
+       sub("\\.gz$", "")
 }
 
 ###
@@ -112,7 +112,7 @@
                cmd = "cd " PREFIX " && " LS " -1 " $0 "*"
                while (cmd | getline) {
                        # Filter out unrelated info files
-                       if (substr($0, len + 1) !~ "^(-[0-9]+)?(\.gz)?$") {
+                       if (substr($0, len + 1) !~ "^(-[0-9]+)?(\\.gz)?$") {
                                continue
                        }
                        #if ((MANZ ~ /[yY][eE][sS]/) && ($0 !~ /\.gz$/)) {