remove C<my $x if foo> construct from core modules

[p5sagit/p5-mst-13.2.git] / lib / Net / NNTP.pm

diff --git a/lib/Net/NNTP.pm b/lib/Net/NNTP.pm
index 79261f8..acf2bf1 100644 (file)
--- 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;