diff options
| author | Marc Espie <espie@cvs.openbsd.org> | 2008-10-20 10:25:17 +0000 |
|---|---|---|
| committer | Marc Espie <espie@cvs.openbsd.org> | 2008-10-20 10:25:17 +0000 |
| commit | eaebd8142928ba1b0d5fe3a62f964c99fd875888 (patch) | |
| tree | 7455dca1904b029f68651be5c0285017b8e3a085 /usr.sbin/pkg_add/OpenBSD/Delete.pm | |
| parent | 782d0d3eb7b8f71c782a07fbb33aefe93a000d53 (diff) | |
Say goodbye to local $_
lexical scoping is so much neater (courtesy of perl 5.10)
Diffstat (limited to 'usr.sbin/pkg_add/OpenBSD/Delete.pm')
| -rw-r--r-- | usr.sbin/pkg_add/OpenBSD/Delete.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/usr.sbin/pkg_add/OpenBSD/Delete.pm b/usr.sbin/pkg_add/OpenBSD/Delete.pm index d21971afd64..e7a9552cfe4 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.77 2008/10/06 09:36:17 espie Exp $ +# $OpenBSD: Delete.pm,v 1.78 2008/10/20 10:25:16 espie Exp $ # # Copyright (c) 2003-2007 Marc Espie <espie@openbsd.org> # @@ -560,7 +560,7 @@ sub delete my $fullname = $self->fullname; my @l=(); if (open(my $shells, '<', $destdir.OpenBSD::Paths->shells)) { - local $_; + my $_; while(<$shells>) { push(@l, $_); s/^\#.*//o; |