Skip site navigation (1)Skip section navigation (2)
Date:      Wed, 2 Jan 2019 23:58:53 +0000 (UTC)
From:      Sunpoet Po-Chuan Hsieh <sunpoet@FreeBSD.org>
To:        ports-committers@freebsd.org, svn-ports-all@freebsd.org, svn-ports-head@freebsd.org
Subject:   svn commit: r489116 - head/print/texinfo/files
Message-ID:  <201901022358.x02NwrqS018549@repo.freebsd.org>

next in thread | raw e-mail | index | archive | help
Author: sunpoet
Date: Wed Jan  2 23:58:53 2019
New Revision: 489116
URL: https://svnweb.freebsd.org/changeset/ports/489116

Log:
  Fix Perl 5.28+ warning
  
  PR:		234464
  Submitted by:	Risto <toivonenristo@netscape.net>

Added:
  head/print/texinfo/files/
  head/print/texinfo/files/patch-tp-Texinfo-Parser.pm   (contents, props changed)

Added: head/print/texinfo/files/patch-tp-Texinfo-Parser.pm
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ head/print/texinfo/files/patch-tp-Texinfo-Parser.pm	Wed Jan  2 23:58:53 2019	(r489116)
@@ -0,0 +1,16 @@
+--- tp/Texinfo/Parser.pm.orig	2017-09-12 18:49:03 UTC
++++ 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->__(



Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201901022358.x02NwrqS018549>