[BACK]Return to patch-tp_Texinfo_Parser.pm CVS log [TXT][DIR] Up to [cvs.NetBSD.org] / pkgsrc / devel / gtexinfo / patches
File: [cvs.NetBSD.org] / pkgsrc / devel / gtexinfo / patches / Attic / patch-tp_Texinfo_Parser.pm (download)

Revision 1.1, Thu Aug 30 11:03:35 2018 UTC (5 years, 7 months ago) by tnn
Branch: MAIN
CVS Tags: pkgsrc-2019Q3-base, pkgsrc-2019Q3, pkgsrc-2019Q2-base, pkgsrc-2019Q2, pkgsrc-2019Q1-base, pkgsrc-2019Q1, pkgsrc-2018Q4-base, pkgsrc-2018Q4, pkgsrc-2018Q3-base, pkgsrc-2018Q3 

gtexinfo: silence p5 deprecation warning

$NetBSD: patch-tp_Texinfo_Parser.pm,v 1.1 2018/08/30 11:03:35 tnn Exp $

Unescaped left brace in regex is deprecated here (and will be fatal in Perl 5.32)

--- tp/Texinfo/Parser.pm.orig	2017-09-12 18:49:03.000000000 +0000
+++ tp/Texinfo/Parser.pm
@@ -5478,11 +5478,11 @@ sub _parse_special_misc_command($$$$)
     }
   } elsif ($command eq 'clickstyle') {
     # REMACRO
-    if ($line =~ /^\s+@([[:alnum:]][[:alnum:]\-]*)({})?\s*/) {
+    if ($line =~ /^\s+@([[:alnum:]][[:alnum:]\-]*)(\{\})?\s*/) {
       $args = ['@'.$1];
       $self->{'clickstyle'} = $1;
       $remaining = $line;
-      $remaining =~ s/^\s+@([[:alnum:]][[:alnum:]\-]*)({})?\s*(\@(c|comment)((\@|\s+).*)?)?//;
+      $remaining =~ s/^\s+@([[:alnum:]][[:alnum:]\-]*)(\{\})?\s*(\@(c|comment)((\@|\s+).*)?)?//;
       $has_comment = 1 if (defined($4));
     } else {
       $self->line_error (sprintf($self->__(