svn commit: r489116 - head/print/texinfo/files

[Sunpoet Po-Chuan Hsieh]

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 at 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->__(