diff options
| author | Marc Espie <espie@cvs.openbsd.org> | 2009-06-06 10:13:30 +0000 |
|---|---|---|
| committer | Marc Espie <espie@cvs.openbsd.org> | 2009-06-06 10:13:30 +0000 |
| commit | 5e708ee26a2dad9857869b1d3172fba91a21e210 (patch) | |
| tree | a595d4a9b9f4980e4ef8f1538eea509ed9437398 /usr.sbin | |
| parent | 43b3ccb7b66fe7ac8ef51712e09e4d04777fb3c0 (diff) | |
my $_, except for the server code, which could still run on older perl
Diffstat (limited to 'usr.sbin')
| -rw-r--r-- | usr.sbin/pkg_add/OpenBSD/PackageRepository/SCP.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/usr.sbin/pkg_add/OpenBSD/PackageRepository/SCP.pm b/usr.sbin/pkg_add/OpenBSD/PackageRepository/SCP.pm index de11a90b708..35ace4f4ef9 100644 --- a/usr.sbin/pkg_add/OpenBSD/PackageRepository/SCP.pm +++ b/usr.sbin/pkg_add/OpenBSD/PackageRepository/SCP.pm @@ -1,5 +1,5 @@ # ex:ts=8 sw=4: -# $OpenBSD: SCP.pm,v 1.18 2009/06/03 10:17:50 espie Exp $ +# $OpenBSD: SCP.pm,v 1.19 2009/06/06 10:13:29 espie Exp $ # # Copyright (c) 2003-2006 Marc Espie <espie@openbsd.org> # @@ -45,7 +45,7 @@ sub initiate $self->{cmdfh} = $wrfh; $self->{getfh} = $rdfh; $wrfh->autoflush(1); - local $_; + my $_; while(<DATA>) { # compress script a bit @@ -73,7 +73,7 @@ sub grab_object my $getfh = $self->{getfh}; print $cmdfh "ABORT\n"; - local $_; + my $_; while (<$getfh>) { last if m/^ABORTED/o; } @@ -133,7 +133,7 @@ sub list my $path = $self->{path}; my $l = []; print $cmdfh "LIST $path\n"; - local $_; + my $_; $_ = <$getfh>; if (!defined $_) { die "Could not initiate SSH session\n"; |