kpriv/pkgsrc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Remove "my" before $_, since perl 5.18 complains about it.

Browse source
This commit is contained in:
wiz 2013-06-02 11:58:36 +00:00
parent 7ee71a027e
commit 1caf986865
2 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
textproc/mdoclint/Makefile
View file

@ -1,7 +1,6 @@
# $NetBSD: Makefile,v 1.28 2013/05/31 12:42:08 wiz Exp $
# $NetBSD: Makefile,v 1.29 2013/06/02 11:58:36 wiz Exp $
DISTNAME= mdoclint-1.20
PKGREVISION= 1
DISTNAME= mdoclint-1.21
CATEGORIES= textproc
MASTER_SITES= # none
DISTFILES= # none

12
textproc/mdoclint/files/mdoclint
View file

@ -1,7 +1,7 @@
#!@PERL5@
#
# $OpenBSD: mdoclint,v 1.14 2009/04/13 12:40:05 espie Exp $
# $NetBSD: mdoclint,v 1.32 2013/03/26 20:26:18 wiz Exp $
# $NetBSD: mdoclint,v 1.33 2013/06/02 11:58:36 wiz Exp $
#
# Copyright (c) 2001-2013 Thomas Klausner
# All rights reserved.
@ -349,7 +349,7 @@ sub close
sub parse_macro_args
{
my ($s, $string) = @_;
my $_ = $string;
$_ = $string;
my @params = ();
while (!/^$/) {
if (s/^\"(.*?)\"\s*//) {
@ -404,7 +404,8 @@ sub set_section_header
sub process_and_save_line
{
my ($s, $_) = @_;
my $s;
($s, $_) = @_;
my $result = $s->process_line($_);
# note that process_line chomps \n, then re-adds it,
# so we detect a change on last lines without a \n.
@ -416,7 +417,8 @@ sub process_and_save_line
sub process_line
{
my ($s, $_) = @_;
my $s;
($s, $_) = @_;
chomp;
# always cut trailing spaces
if (/\s+$/o) {
@ -668,7 +670,7 @@ sub handle_file
{
my $parser = Parser->new($_[0]);
while (my $_ = $parser->next_line) {
while ($_ = $parser->next_line) {
$parser->process_and_save_line($_);
}