diff options
| author | wiz <wiz@pkgsrc.org> | 2013-06-02 11:58:36 +0000 |
|---|---|---|
| committer | wiz <wiz@pkgsrc.org> | 2013-06-02 11:58:36 +0000 |
| commit | c96959d85fc9fd6d68628ecd0b2fd276397798f5 (patch) | |
| tree | 168bc4a6a3e5f9027a0b3ed5d78adc49d0786087 /textproc | |
| parent | a77da5f00e04f880f301a1d634983beb5b2e4a06 (diff) | |
| download | pkgsrc-c96959d85fc9fd6d68628ecd0b2fd276397798f5.tar.gz | |
Remove "my" before $_, since perl 5.18 complains about it.
Diffstat (limited to 'textproc')
| -rw-r--r-- | textproc/mdoclint/Makefile | 5 | ||||
| -rwxr-xr-x | textproc/mdoclint/files/mdoclint | 12 |
2 files changed, 9 insertions, 8 deletions
diff --git a/textproc/mdoclint/Makefile b/textproc/mdoclint/Makefile index 5e1b7aeb2dc..a4e0251bdc8 100644 --- a/textproc/mdoclint/Makefile +++ b/textproc/mdoclint/Makefile @@ -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 diff --git a/textproc/mdoclint/files/mdoclint b/textproc/mdoclint/files/mdoclint index 22a826bdd89..364c2fa2178 100755 --- a/textproc/mdoclint/files/mdoclint +++ b/textproc/mdoclint/files/mdoclint @@ -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($_); } |