Net::FTP

- Fix merge error spotted by Slaven Rezic

1 files changed, 5 insertions, 5 deletions

diff --git a/Net/FTP.pm b/Net/FTP.pm
index 19420a1..ce402b0 100644
--- a/Net/FTP.pm
+++ b/Net/FTP.pm
@@ -22,7 +22,7 @@ use Net::Config;
 use Fcntl qw(O_WRONLY O_RDONLY O_APPEND O_CREAT O_TRUNC);
 # use AutoLoader qw(AUTOLOAD);
 
-$VERSION = "2.69"; # $Id: //depot/libnet/Net/FTP.pm#75 $
+$VERSION = "2.70"; # $Id: //depot/libnet/Net/FTP.pm#76 $
 @ISA     = qw(Exporter Net::Cmd IO::Socket::INET);
 
 # Someday I will "use constant", when I am not bothered to much about
@@ -392,6 +392,9 @@ sub type
 
  ${*$ftp}{'net_ftp_type'} = join(" ",$type,@_);
 
+ $oldval;
+}
+
 sub alloc
 {
  my $ftp = shift;
@@ -409,9 +412,6 @@ sub alloc
  $oldval;
 }
 
- $oldval;
-}
-
 sub abort
 {
  my $ftp = shift;
@@ -1766,6 +1766,6 @@ under the same terms as Perl itself.
 
 =for html <hr>
 
-I<$Id: //depot/libnet/Net/FTP.pm#75 $>
+I<$Id: //depot/libnet/Net/FTP.pm#76 $>
 
 =cut