Revert my $foo if ... in maint for dual life modules where changes

have not yet been propagated out to their authors and then CPAN

p4raw-id: //depot/maint-5.8/perl@22643

4 files changed, 4 insertions, 8 deletions

diff --git a/lib/Net/NNTP.pm b/lib/Net/NNTP.pm
index acf2bf1162..79261f889d 100644
--- a/lib/Net/NNTP.pm
+++ b/lib/Net/NNTP.pm
@@ -21,8 +21,7 @@ sub new
 {
  my $self = shift;
  my $type = ref($self) || $self;
- my $host;
- $host = shift if @_ % 2;
+ my $host = shift if @_ % 2;
  my %arg  = @_;
  my $obj;
 
diff --git a/lib/Net/POP3.pm b/lib/Net/POP3.pm
index 01b0bb802e..7cd44ef179 100644
--- a/lib/Net/POP3.pm
+++ b/lib/Net/POP3.pm
@@ -21,8 +21,7 @@ sub new
 {
  my $self = shift;
  my $type = ref($self) || $self;
- my $host;
- $host = shift if @_ % 2;
+ my $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 424854e540..be64037403 100644
--- a/lib/Net/SMTP.pm
+++ b/lib/Net/SMTP.pm
@@ -24,8 +24,7 @@ sub new
 {
  my $self = shift;
  my $type = ref($self) || $self;
- my $host;
- $host = shift if @_ % 2;
+ my $host = shift if @_ % 2;
  my %arg  = @_; 
  my $hosts = defined $host ? $host : $NetConfig{smtp_hosts};
  my $obj;
diff --git a/lib/Pod/Parser.pm b/lib/Pod/Parser.pm
index 653342e20c..d12e01624a 100644
--- a/lib/Pod/Parser.pm
+++ b/lib/Pod/Parser.pm
@@ -1155,8 +1155,7 @@ sub parse_from_file {
     my $self = shift;
     my %opts = (ref $_[0] eq 'HASH') ? %{ shift() } : ();
     my ($infile, $outfile) = @_;
-    my ($in_fh,  $out_fh);
-    ($in_fh,  $out_fh) = (gensym, gensym)  if ($] < 5.6);
+    my ($in_fh,  $out_fh) = (gensym, gensym)  if ($] < 5.6);
     my ($close_input, $close_output) = (0, 0);
     local *myData = $self;
     local $_;