diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2004-02-17 21:52:08 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2004-02-17 21:52:08 +0000 |
| commit | 76df5e8f6f9a368c3b6f3dcca177104be7f3fc8c (patch) | |
| tree | 4aee5575154e7b0037b35ce06a93486173c9f9eb /lib/Net | |
| parent | 9b11ae5efd28ae7e3371a10346290d0fad9432ad (diff) | |
| download | perl-76df5e8f6f9a368c3b6f3dcca177104be7f3fc8c.tar.gz | |
remove C<my $x if foo> construct from core modules
p4raw-id: //depot/perl@22322
Diffstat (limited to 'lib/Net')
| -rw-r--r-- | lib/Net/NNTP.pm | 3 | ||||
| -rw-r--r-- | lib/Net/POP3.pm | 3 | ||||
| -rw-r--r-- | lib/Net/SMTP.pm | 3 |
3 files changed, 6 insertions, 3 deletions
diff --git a/lib/Net/NNTP.pm b/lib/Net/NNTP.pm index 79261f889d..acf2bf1162 100644 --- a/lib/Net/NNTP.pm +++ b/lib/Net/NNTP.pm @@ -21,7 +21,8 @@ sub new { my $self = shift; my $type = ref($self) || $self; - my $host = shift if @_ % 2; + my $host; + $host = shift if @_ % 2; my %arg = @_; my $obj; diff --git a/lib/Net/POP3.pm b/lib/Net/POP3.pm index 7cd44ef179..01b0bb802e 100644 --- a/lib/Net/POP3.pm +++ b/lib/Net/POP3.pm @@ -21,7 +21,8 @@ sub new { my $self = shift; my $type = ref($self) || $self; - my $host = shift if @_ % 2; + my $host; + $host = shift if @_ % 2; my %arg = @_; my $hosts = defined $host ? [ $host ] : $NetConfig{pop3_hosts}; my $obj; diff --git a/lib/Net/SMTP.pm b/lib/Net/SMTP.pm index be64037403..424854e540 100644 --- a/lib/Net/SMTP.pm +++ b/lib/Net/SMTP.pm @@ -24,7 +24,8 @@ sub new { my $self = shift; my $type = ref($self) || $self; - my $host = shift if @_ % 2; + my $host; + $host = shift if @_ % 2; my %arg = @_; my $hosts = defined $host ? $host : $NetConfig{smtp_hosts}; my $obj; |