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>