diff options
| author | Marc Espie <espie@cvs.openbsd.org> | 2014-03-18 18:53:30 +0000 |
|---|---|---|
| committer | Marc Espie <espie@cvs.openbsd.org> | 2014-03-18 18:53:30 +0000 |
| commit | 08a7747feb51aa087d605d2ee6137343dfa270ce (patch) | |
| tree | a0da9ed86cd0554c8ebc6b2a2a162ab68ce10052 /usr.sbin/pkg_add/OpenBSD/Delete.pm | |
| parent | 3f38936de38607059fe8d34c3a78165f2a64d69d (diff) | |
remove $_ usage that warns under perl 5.18
Diffstat (limited to 'usr.sbin/pkg_add/OpenBSD/Delete.pm')
| -rw-r--r-- | usr.sbin/pkg_add/OpenBSD/Delete.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/usr.sbin/pkg_add/OpenBSD/Delete.pm b/usr.sbin/pkg_add/OpenBSD/Delete.pm index 0b16e2db4f2..764281cbbf5 100644 --- a/usr.sbin/pkg_add/OpenBSD/Delete.pm +++ b/usr.sbin/pkg_add/OpenBSD/Delete.pm @@ -1,5 +1,5 @@ # ex:ts=8 sw=4: -# $OpenBSD: Delete.pm,v 1.133 2014/02/08 10:43:25 espie Exp $ +# $OpenBSD: Delete.pm,v 1.134 2014/03/18 18:53:29 espie Exp $ # # Copyright (c) 2003-2014 Marc Espie <espie@openbsd.org> # @@ -601,7 +601,6 @@ sub delete my $fullname = $self->fullname; my @l=(); if (open(my $shells, '<', $destdir.OpenBSD::Paths->shells)) { - my $_; while(<$shells>) { push(@l, $_); s/^\#.*//o; |