head	1.2;
access;
symbols
	pkgsrc-2019Q2:1.1.0.22
	pkgsrc-2019Q2-base:1.1
	pkgsrc-2019Q1:1.1.0.20
	pkgsrc-2019Q1-base:1.1
	pkgsrc-2018Q4:1.1.0.18
	pkgsrc-2018Q4-base:1.1
	pkgsrc-2018Q3:1.1.0.16
	pkgsrc-2018Q3-base:1.1
	pkgsrc-2018Q2:1.1.0.14
	pkgsrc-2018Q2-base:1.1
	pkgsrc-2018Q1:1.1.0.12
	pkgsrc-2018Q1-base:1.1
	pkgsrc-2017Q4:1.1.0.10
	pkgsrc-2017Q4-base:1.1
	pkgsrc-2017Q3:1.1.0.8
	pkgsrc-2017Q3-base:1.1
	pkgsrc-2017Q2:1.1.0.4
	pkgsrc-2017Q2-base:1.1
	pkgsrc-2017Q1:1.1.0.2;
locks; strict;
comment	@# @;


1.2
date	2019.09.26.08.34.03;	author wiz;	state dead;
branches;
next	1.1;
commitid	Yiq30Hm7ZZvfXuEB;

1.1
date	2017.04.19.06.34.10;	author spz;	state Exp;
branches
	1.1.2.1;
next	;
commitid	ImawACfVer9xT6Oz;

1.1.2.1
date	2017.04.19.06.34.10;	author bsiegert;	state dead;
branches;
next	1.1.2.2;
commitid	elknu1BqQ5ovmqPz;

1.1.2.2
date	2017.04.29.11.56.26;	author bsiegert;	state Exp;
branches;
next	;
commitid	elknu1BqQ5ovmqPz;


desc
@@


1.2
log
@rt3, p5-libapreq: remove

p5-libapreq depends on mod_perl 1.x, which was removed in June.
rt3 uses p5-libapreq.
@
text
@$NetBSD: patch-share_html_REST_1.0_Forms_ticket_default,v 1.1 2017/04/19 06:34:10 spz Exp $

Properly escape braces to make it compatible with Perl >=5.24.

--- share/html/REST/1.0/Forms/ticket/default.orig	2013-05-22 19:03:04.000000000 +0000
+++ share/html/REST/1.0/Forms/ticket/default
@@@@ -383,14 +383,14 @@@@ else {
                             $s =~ s/\\'/'/g;
                             push @@new, $s;
                         }
-                        elsif ( $a =~ /^q{/ ) {
+                        elsif ( $a =~ /^q\{/ ) {
                             my $s = $a;
-                            while ( $a !~ /}$/ ) {
+                            while ( $a !~ /\}$/ ) {
                                 ( $a, $b ) = split /\s*,\s*/, $b, 2;
                                 $s .= ',' . $a;
                             }
-                            $s =~ s/^q{//;
-                            $s =~ s/}//;
+                            $s =~ s/^q\{//;
+                            $s =~ s/\}//;
                             push @@new, $s;
                         }
                         else {
@


1.1
log
@add perl24 updates that escaped me - from leot@@
@
text
@d1 1
a1 1
$NetBSD$
@


1.1.2.1
log
@file patch-share_html_REST_1.0_Forms_ticket_default was added on branch pkgsrc-2017Q1 on 2017-04-29 11:56:26 +0000
@
text
@d1 25
@


1.1.2.2
log
@Pullup ticket #5319 - requested by sevan
devel/rt3: build fix

Revisions pulled up:
- devel/rt3/Makefile                                            1.64
- devel/rt3/distinfo                                            1.28
- devel/rt3/patches/patch-bin_rt.in                             1.1
- devel/rt3/patches/patch-share_html_REST_1.0_Forms_ticket_default 1.1

---
   Module Name:    pkgsrc
   Committed By:   spz
   Date:           Wed Apr 19 06:34:10 UTC 2017

   Modified Files:
           pkgsrc/devel/rt3: Makefile distinfo
   Added Files:
           pkgsrc/devel/rt3/patches: patch-bin_rt.in
               patch-share_html_REST_1.0_Forms_ticket_default

   Log Message:
   add perl24 updates that escaped me - from leot@@
@
text
@a0 25
$NetBSD: patch-share_html_REST_1.0_Forms_ticket_default,v 1.1 2017/04/19 06:34:10 spz Exp $

Properly escape braces to make it compatible with Perl >=5.24.

--- share/html/REST/1.0/Forms/ticket/default.orig	2013-05-22 19:03:04.000000000 +0000
+++ share/html/REST/1.0/Forms/ticket/default
@@@@ -383,14 +383,14 @@@@ else {
                             $s =~ s/\\'/'/g;
                             push @@new, $s;
                         }
-                        elsif ( $a =~ /^q{/ ) {
+                        elsif ( $a =~ /^q\{/ ) {
                             my $s = $a;
-                            while ( $a !~ /}$/ ) {
+                            while ( $a !~ /\}$/ ) {
                                 ( $a, $b ) = split /\s*,\s*/, $b, 2;
                                 $s .= ',' . $a;
                             }
-                            $s =~ s/^q{//;
-                            $s =~ s/}//;
+                            $s =~ s/^q\{//;
+                            $s =~ s/\}//;
                             push @@new, $s;
                         }
                         else {
@