From 1caf9868658ac0e0aa8783748817add4d0e429c8 Mon Sep 17 00:00:00 2001
From: wiz <wiz@pkgsrc.org>
Date: Sun, 2 Jun 2013 11:58:36 +0000
Subject: [PATCH] Remove "my" before $_, since perl 5.18 complains about it.

---
 textproc/mdoclint/Makefile       |  5 ++---
 textproc/mdoclint/files/mdoclint | 12 +++++++-----
 2 files changed, 9 insertions(+), 8 deletions(-)

diff --git a/textproc/mdoclint/Makefile b/textproc/mdoclint/Makefile
index 5e1b7aeb2dc5..a4e0251bdc8e 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 22a826bdd897..364c2fa2178a 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($_);
 	}